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MEETING SCHEDULE 
1620 USERS Group 



February 19-21, 1964 
WEDNESDAY, FEBRUARY 19, 1964 • 

8:45 GEN ERAL SESSION Convention Hall 

8:45 Announcements " " 

8:55 IBM Announcements " " 

9:00 IBM Announcements " " 

9:10 Programming Syst. Announcements " " 

9:30 Index Register Concepts " " 

9:50 Kingstran " " 

10:30 Coffee & Rolls 

10:45 SELECTED SPS TOPICS-Eletnentary 

SPS WORKSHOP-ADVANCED Grecian Room 

12:15 Lunch Convention Hall 

1:30 EXPLORATORY PROGRAMMING 

3:00 Coffee 

3:30 PANEL OF 1710 USERS D 4 

SPS WORKSHOP-ADVANCED Grecian Room 

7:30 SOUND-OFF SESSION 

THURSDAY, FEBRUARY 20, 1964 
7:45 NEW USEBS MEETING (coffee & rolls) D 3 
8:45 INTRODUCTION TO MONITOR I Convention Hall 

PANEL OF 1311 USERS Grecian Room 

10:15 Coffee & Rolls 

10:45 INTRODUCTION TO MONITOR I Convention Hall 

MONITOR I WORKSHOP-ADVANCED D 4 
Magnetic Tape Users Meeting D 3 



O'Hare^br^Des Piaines , 111. 



B. Burrows 

jXjessee ;;■ 
G*! W&rc£>c&f 
L. Fost-er 
B. Soc|| 
D. JardMe 



D. Pratt 

J. Morris sey 

J. C. Hill 
D. Pratt 
J.A. N. Lee 

B. Burrows 
IBM 

B. Burrows 

& Conven. Hall 

IBM 

IBM 

B, Robinson 



2 



12:15 
1:30 



6:30 



7:30 
8:30 



FRIDAY, 
8:45 



Lunch Convention Hall 

INTRODUCTION TO MATRICES 

MONITOR I WORKSHOP -ADVANCED D 4 

EDUCATION PAPERS Grecian Room 

1:30 A New Course in 

"Computer Appreciation" " " 

1:45 A Survey of the Beginning 

Programming Course " 
2:00 Data Processing Technicians; 

an Integrated Training Approach 

at Hibbing Area Tech. Inst. 

3:00 Coffee Conven. Hall, Grec 

3:30 Introduction to Regression Conven. Hall 

MONITOR I WORKSHOP-ADVANCED D 4 

APPLICATION PAPERS Grecian Room 

3:30 The IBM 1620 as an 

Analytical & Pre- 

Compositional Aide in 

12-Tone Music 
3:50 A Family of Test Matrices 
4: 10 A New Random Number Generator 
4:30 Logic Theorm Detection Program 



Movies 

MONITOR I & II Demos 
Repeat of 6:30 Program 
Repeat of 6:30 Program 



Convention Hall 

D 2 

Repeat 



C. Maudlin, Jr. 
IBM 

C. Davidson 
C. B. Germain 
W. J. McGraw 

Rm. & D 4 

C.Phillip Cox 
IBM 

A. Tepper 



A.C-R. Newberry 
H.T. Wheeler 
J. Wheatley 

IBM 
IBM 



FEBRUARY 21, 1964 

Panel of Commercial Data Processing D 4 

PROGRAMMING SYSTEMS PAPERS Convention Hall 
8:45 Magic I and II " " 

9:15 Kingstran " " 



10:15 



PANEL ON EDUCATION 
Coffee & Rolls 



Grecian Room 
Conven. Hall, Grec. 



R. Thomas 



J. A. N. Lee 
D. Jardine 



Rm. and D 4 



3 



10:45 ENGINEERING & CONTROL PAPERS D 4 

10:45 AUTOSPOT II Pre-Processor Prog. D 
11:00 Autospotless Numerical Control D 

with the 1620 
11:30 Montecarlo Techniques applied to 
Radio Chemistry D 



D. McManigan 

E . Ray Austin 



J.K. Lewis 



10:45 PROGRAMMING SYSTEMS PAPERS Convention Hall 

10:45 Carleton College Compiler 
11:00 Carleton Binary Simulator 
11:15 A Completely Relocatable SPS 
11:30 Modifying Monitor I to Include 
Other Programming Systems 



D. Taranto 
W. Gage 
M. Dorl 

A. Purcell 



10:45 PANEL ON EDUCATION 

12:15 Lunch 

1:30 GENERAL SESSION 

Sound-Off Answers 
Questions & Answers 



Grecian Room 



Convention Hall 



3:00 



Adjournment 



4 



AGGER6AARC PAUL L 
ALCORN HERBERT R 




GRccN blANI tUHfAKI 

MISSOURI SCHOCL OF MINES 6 MET 


1 F StiFUR 
RCLLA 


MINN 
MO 


DAVIDSON JAMES L 
DAVIDSON CHARLES 


LONG ISLAND LTG 
UNIVERSITY OF WISCONSIN 


HICKVILLE 
MADISON 


NY 

wise 


ALDRICH F C 
ALTEWHOFF JOHN 




f*i neuron c r I w I C T rM 
ELECTRO-MOTIVE OIV-GHC 


LANSING 
LA tKANlit 


MICH 

ILL 


CAWSCN J 


IBM CORPORATION 

Thll AMn ^TFFI mMDAMV 


CALGARY 
f«ct rwirAKfi 

LHj 1 IrFI 


ALB 

INC 


AMGRT ANTHONY 
ARENA A 




EELGIT CtiKFLKAIIUK 
IBM CCRPCRATICN 


B E L 1 T 

WHITE PLAINS 


wise 

N Y 


BEMERATH ALBERT J 
CENISON GEORGE B 


KIMBERLY-CLARK CORPORATION 
FAIRBANKS MORSE CO 


WEST CARROLLTON 
BELOIT 


OHIO 
WIS 


ATKINS JOSEPH T 
ATKINS OR D FERREL 




E I DO PUN • Ut NtWLiUKo l*U I WL. 


PARKFR^fUlRft 


W VA 


DEUEL MICHAEL 


KEARNEY £ TRECKER CORPORATION 


WEST ALL IS 


wise 




EASTERN ILLINOIS UNIVERSITY 


CHARLESTON 


ILL 


CEVENNEY WILLIAM S 


WABASH COLLEGE 


CRAWFORDSVILLE 


IND 


AUSTIN E R 
AUSTIN HUBERT 




rrMRIt^TIDN FNGINFFRING INC 
TRI-STATE COLLEGE 


CHATTANOOGA 
ANGOLA 


TENN 
INC 


SICKER SON RICHARD F 
DILL INGER DR J L 


CONTAINER CORP OF AMERICA 
UNIVERSITY OF ILLINOIS 


CHICAGO 
CHICAGO 


ILL 
ILL 


BABICNE ROBERT C 
BACHHUSER JOHN J 




USAF — ACIC 

INST OF PAPER CHEM 


O ■ i- Vj Kf 1 *3 

APPLETCN 


MO 
WIS 


BORL MICHAEL 
DOUGLAS LEO C 


UNIVERSITY OF WISCONSIN 
ARGCNNE NATL LAB 


MADISON 
LAMONT 


wise 

ILL 


8AEVERSTAC HARCLC 
CARSUTES ROBERT F 


L 


SUNCalKAnu nACrllNt IUUL 
IBM CORPORATION 


BELV IDERE 
YOUNGSTOWN 


ILL 

OHIO 


COULOFF A A 
CRESSLER EYRCN 8 


TRANS CANAOA PIPE LINES 
KENT STATE UNIV 


TORONTO 
KENT 


ONT 
OHIO 


BARRON JD 
«ARTtt WILLIAM 




IBM 


TORONTO 


ONT 


CUGGAN JOHN 


HAWKER SIDDELEY CANADA LTD 


TORONTO 


ONT 




EDO CORPORATION 


COLLEGE POINT 


N Y 


DULICK ROBERT W 


YOUNGSTOWN SHEET AND TUBE CO 


YOUNGSTOWN 


OHIO 


8ATKIJRST LYNN L 
8ATSC* WILLIAM B JR 


ni,cT curtuccoikir rr 
RUSI cNblNbcKllNb IU 

NASHVILLE BRIDGE COMPANY 


D f DM I Kirir-I AM 

Ki A C 14V T 1 1 F 
INAorl V i Lll 


ALA 

TENN 


DUNN JACK T 
dyf rAVir 

U 1 L tsM 111/ 


AVCC CORPORATION 
IBM 


HUNTSVILLE 

yui TF PI A Tht<\ 


ALA 
NY 


SEAtiOREAU DCREEK 
8ELCNCS S P 




Unl VcKjI 1 T Ur WlotUnjini 
COLUMBIA GAS SYblfcH 


MILWAUKEE 
mi I imfu ivt 17 

LULUnDUj i.£. 


wise 

OH 10 


EDIE ROBERT 
EDWARDS DAVID 


STATE UNIVERSITY OF NEW YORK 
E I DU PONT 


BUFFALO 
riRfi Fy ii i f 


N Y 
OHIO 


SEME NT LYLE U 
BERN IE R J L 




uai 1 DRY tlMFRS COMPANY 
GREAT NORTHERN OIL COMPANY 


INDIANAPOLIS 
ST PAUL 


IND 
MINN 


EDWARDS DR M LLOYD 
EIKEMBERRY PROF R S 


KANSAS STATE TEACHERS COLLEGE 
UNIVERSITY OF NOTRE DAME 


EMPORIA 
NOTRE DAME 


KAN 

IND 


BEST ALBERT 
BEST WILLIAM R 




Oi.lt/Ucn tunrAfiT 

VA BIOSTATISTICAL RSCH SUPP 


JACKSONV ILLE 
HIKES 


FLA 
ILL 


ELWEKL WALTER G 
ESCHBACH CAREL 


NEBRASKA WESLEYAN UNIVERSITY 
THE UNIVERSITY OF TOLEDO 


LINCOLN 
TOLEDO 


NEBR 
OHIO 


BICKFORD PAUL 
BILLINGHAM CAROL 




UK LA Unl V KtoCAKUn tunr tin 

LEONARD REFINERIES INC 


OKLAHOMA CITY 
ALMA 


OKLA 
MICH 


FIELD A WAJfNE 
FIELD J A 


FIRST AEROSPACE CONTROL SQUAD 
UNIVERSITY OF TORONTO 


COLO SPRINGS 
TORONTO 5 


COLO 
ONT 


BLACK RICHARD H 
BLCMCUIST ROY 




IIMIVFRCTTY HF WISCONSIN 

ILL INST OF TECH 


MILWAUKEE 11 
CHICAGO 


wise 

ILL 


FL ATT JAMES G 
FLIESS MANFRED 


PUB UTIL DIST #2 GRANT COUNTY 
JONES £ LAUGHLIN STEEL CORP 


EPHRATA 
PITTSBURGH 30 


WASH 
PA 


aOINHOFff PETER 6 

aaaivacm fiAtjvn A 
BUHYHH VMM IV :m 




nKu bAIL 


NILES 


ILL 


FODCR JOYCE 


UNIVERSITY OF WISCONSIN 


MADISON 


wise 




LOYOLA UULLfcbt 


MONTREAL 


QUE 


FORSt LEONARD 


SUNDSTRAND AVIATION 


ROCK FORD 


ILL 


BOWMAN RUTH T 




t n I^Lcln « Aojuv. 


CLEVELAND 


OHIO 


FORSYTH D W 


CONTINENTAL CAN COMPANY 


CHICAGO 


ILL 


8RIC6F0RD ROBERT 




UNIVERSITY OF WISCONSIN 


MILWAUKEE 


wise 


FOSTER C L 


IBM CORPORATION 


SAN JOSE 


CAL 


8Rtfi*ER DAVID 
BRUT A IN PAUL E 




UACUIMCTtfN IfttlVFBCfTY 

U S NAVAL ACADEMY 


ST LOUIS 
ANNAPOLIS 


MISS 
MD 


FOX J BAINE 

IRA 11 I NG WILLIAM D 


WASHINGTON £ LEE UNIVERSITY 
UPJOHN COMPANY 


LEXINGTON 
KALAMAZOO 


VA 

MICH 


BROWN ROBERT W 
BUCH4ER DANIEL 




rcucDAi HDTflDC IW^TITIITP 

ANACONDA WIRE AND CABLE 


FLINT 4 
SYCAMORE 


MICH 
ILL 


FRANK DR WERNER 
FREDERICK DR KENNETH J 


BOWLING GREEN STATE UNIVERSITY 
ABBOTT LABORATORIES 


BOWLING GREEN 
NORTH CHICAGO 


OHIO 
ILL 


BUHL I G W L 
BURKETT S 8 JR 




SPENCER CrlcM ICAL UUnPANY 
PAN An AIRMAYb 


kan^a<; CITY 

PATRICK AFR 


MO 
FLA 


FUCfcS IVAN 
CADE EUGENE T 


UNITED AIRCRAFT OF CANADA 
ABBOTT LABORATORIES 


MONTREAL 
NORTH CHICAGO 


QUE 
I LL 


BURNS R E 
BURRCWS WILLIAM A 




APIcKILAN NtLUlnu 6 '»« uu 

DRAVO CORPORATION 


WARREN 
PITTSBURGH 


OHIO 
PA 


CAGE WILLIAM 
EANIERE CARL 


CARLETON COLLEGE 

KEARNEY £ TRECKER CORPORATION 


NORTHFIELD 
WEST ALL IS 


MINN 

wise 


CALLIS CLIFFORD L 
CAPPS JOAN 




GREENVILLc lev. 


GREENVILLE 


SC 


GAUNT WENDY 


IBM CORPORATION 


MINNEAPOL I S 


MINN 




UNIVERSITY OF ILLINOIS 


CHICAGO 


ILL 


GERMAIN CLARENCE B 


COLLEGE OF ST THOMAS 


ST PAUL 


MINN 


CARLSON MILTON E 
CARLSON KERMIT H 




NORTHERN ILLIKUlo UnlVEKolii 
VALPARAISO UNIVERSITY 


DE KALB 
VALPARAISO 


ILL 
IND 


GILBERT PAUL 
GILBERT PAUL F 


NW STATES PORTLAND CEMENT 
USAF - ACIC 


MASON CITY 
ST LOUIS 


IOWA 
MO 


CASLIN JAMES C 
CHERHIAK CR E A 




tic aid enprp 
CARLETON UNIVERSITY 


WRIGHT-PAT AFB 
OTTAWA 


OHIO 
ONT 


GIVENS CLYDE JR 
GLANCER HAROLD 


NORTHERN ILLINOIS UNIVERSITY 
CARROLL COLLEGE 


DE KALB 
WAUKESHA 


ILL 

wise 


CHRIST I ANSON G 
CHRISTOFK RUSSELL 


E 


r\r*t iruo rv TliniiCTO IPC IMP 

ELECTRIC MACHINERY MFG CO 


NEW RICHMOND 
MINNEAPOLIS 13 


wise 

MINN 


GOLDSMITH TT 
GONZALES RICHARD L 


LAWRENCE COLLEGE 
BRADLEY UNIVERSITY 


APPLETON 
PEORIA 


WIS 
ILL 


CHRISf IANS DONALD 
COLE WESLEY G 


D 


U S NAVAL ACADEMY 


ANNAPOLIS 


MD 


GRANT JEAN M 


J C L STEEL-GRAHAM RES LAB 


PITTSBURGH 3C 


PA 




PIONEER HI-BRED CORN COMPANY 


DES MOINES 


IOWA 


GRAVES EARL 


CCNDUCTRON CORPORATION 


ANN ARBOR 


MICH 


COOK LERCY L 
COSTCLLO DONALD F 




DIV OF RADIOLOGICAL HEALTH 
WIS STATE COLLEGE 


ROCKVILLE 
OSHKOSH 


MD 
WIS 


GREGG ROBERT D 
6RIBBEN CLIFFORD J 


LINK-BELT COMPANY 
INDIANAPOLIS POWER £ LIGHT CG 


CHICAGO 9 
INDIANAPOLIS 


ILL 

INC 


CCUCH JOHN D 
COX ROBERT C 




KANSAS STATE TEACHERS COLLEGE 
HUMBLE OIL 6 REFINING CO 


EMPORIA 
BATON ROUGE 


KAN 
LA 


GRIFFITH WALLACE 
GUTEKUNST HANS 


CENTRAL MO STATE COLLEGE 
ELECTRO-MOTIVE DIV-GMC 


WARRENSBURG 
LA GRANGE 


MO 
ILL 


CRULl JAMES 
OABE RODNEY G 




KEARNEY 6 TRECKER CORPORATION 
CGNSOER TOWNSEND ASSOC 


WEST ALL IS 
CHICAGO 


wise 

ILL 


HAELCCK ALAK 
HAGER HARCLC W 


BELCIT CORPORATION 
SOUTHEAST MISSOURI STATE COL 


BELOIT 

CAPE GIRARDEAU 


wise 

MO 


GALTCN CLARENCE H 
DALY JAMES E 




SOUTHEAST MISSOURI STATE COL 
DIV OF RADIOLOGICAL HEALTH 


CAPE GIRARDEAU 
ROCKVILLE 


MO 
MD 


HAJNAL TIEGR E 
HAKE DAVIE A 


TRANS CANADA PIPE LINES 
LOUISIANA POLYTECHNIC INST 


TORONTO 
RUSTON 


ONT 
LA 


DANON REBECCA 




WESTERN RESERVE UNIVERSITY 


CLEVELAND 


OHIO 


HAMILTON JAMES R JR 


IBM 


ARLINGTON 


VA 



o o o 





IBM 


P I TT<; RIIRHN 


PA 




PFKlK'CVI UAMT1 TP AklCFPDMFD Pi I W 




PA 


KARRI* FDIF 


IRM 

I Or! 


TFTRP IT 


f ICH 


IftATUFb^ CFDli n 
IriCPO utnwLU 


RFI HIT f flBOnOftTIPW 


DCI HIT 


WI SC 


MATFIFI D FBFP A 
VIA iriCLU rnCL M 


1 ffcJF MATPDTAI T Aim f < T D I F < 
LlnC rlAlCKl.AL. InUUJ tnlcj 


7AMF^Vffl f F 


C h 1 


fA 1 Irt i jj KAIL n 


oUn ulL LUrr ANT 


UADfl iC UPPfcf 
rAKtto nLLR 


D A 

r A 


MATTTBI M 




TOKYO 


JAP 


AlATTMtlFl 1 FR nrNAI P 


ARMY MAP ^FRUIPF 


fiAon ino i un 


CC 


UF1 1 FB MPi DA 1 


UCNKAtiir RF^FARfM f PRP 




OH I C 




liMI WFQCTTV PF riVl ALipiil 
Url I VCI\ jl 1 T L;r UIVL-AnLnA 


KlDO M A Kl 

liUKr Ani 


GK L A 


mfb^mfv rn 1 IN 




PITT^RIIRKU 
r 1 1 to Dursorl 


PA 


AtAl>RFR RDRFfiT 
RAvrCn IMJCCn 1 


kFCTFDki If T PI4 TP Afcl liKilUFDCITV 


U A 1 A M A 7 PP 


M ICH 




HIUIVFDC1TV rc tfAMCAC 


1 A WD F MP F 


KAN 




FCnCP Al DFCCDUC QAAJl/ 




ftri T MM 


HFyFiTT SYIVIA 


f i miPrNT nF nfmpiirc 


FLINT 


MICH 


ur KFF 1 riUDY t 


HPJF^TR A IIAIIVFR^ITY 
nur o i hp uniicnji i T 


kFMDQTF A P 
rCrrj 1 CAU 


N Y 


SIC llitjK i n A 


1 11! 1 UCD < I T V HE Al DCDTA 




Al P 

ml, c 


Mr MANT£AI riuir c 


lDrl tlnrUnA 1 ILn 


rUUbrlKttr o 1 t 


N Y * 


KILL JOHN CARROLL 


PURDUE UNIVERSITY 


LAFAYETTE 


INO 


' MCGRAW WILLIAM J 


NIBBING AREA TECH SCHOOL 


H I RP I Kjr; 

n ft d o ft no 


M INN 


HINT? ANN 
»> 1 n 1 1 Ami 


TRM rrRPTRATirM 
ion tLnrtnfl i l l m 


rule Acn 


ILL 


J*F Af^FR PRTF 1 ATK R 


UF^TFRN MiruTCAM ItNTVFR^TTV 


U A 1 A M A 7 PP 
fVALAPAtUU 


H I CH 


ktri IMF i fr Britii r i 


PIDKFFR ^FRUTfF F FKIC I NF FR T tiC 


rn ir Ann 


ILL 


WFTPl RAKPPI Pl-f A 


IP Q FPU crui TT7 RDFUIMC fp 


P I Lil AUIV 1 1 


k T CP 
n 1 ou 




rmPFR-PFSSFMFR THRP 


MPliNT UFRNTN 


CH 1 


MFl I fl 1 F£hiARP 


CFflPHY^TP^ fPRP PF AMFRTPA 
ucurn jii>j v,L>i\r ur untiMi/M 


RFPFf RP 

DuUrtM 


MASS 


MOCK EVERETT L 


WAGNER ELECTRIC CCRP 


ST LOUIS 


f»0 


WERGEN FRANK 


RRAPt FY liKIUFR^ITY 


PEOR I A 


ILL 


HORRIGAN TIMOTHY J 


rnnK FiFrTRir rn 


HCRTCN GROVE 


ILL 


Mill FR FDLARP 


H R R — ^TNCFR TNP 


CTATF PPlI 1 FPF 


PA 


ItOTCtHKISS GARY 


ETHYL CCRPORATICN 


FERNDALE 


M ICH 


r ft IW 1. LM IC 


IBM 


PUT P AP^n 
un l UAou 


I LL 


HUGHES MCRMAN L 


VALPARAISO UNIVERSITY 


VALPARA I SO 


INC 


MTRR i S^F Y J 


IRM f PRPP1R ATIPlN 
ion vunrurM i lun 


KJFU YPlRlY 


N Y 


IYFNCAB tRINTVA^A H 


^kTnuriRF nuiNC^ r kfrriii 




ILL 


mr<;rmFTTi jtmn 

nuour c i 1 i wtrn 


Fl 1 IPtTT rPMPAMV 


UnCCnODUnO 


PA 




TFNTIJRV FIFTTRIT rHVPANY 


ST LOUIS 


MO 


uyppc H ARFKfF F 


Fl T 1 11 I V A UP PDMPAMV 
t IV 1 LILL T Ant X, UrlrAn T 


TUOT AklADfl f C A 
I nV I ANAr L)L 1 O O 


T MP 
1 nu 


JAREINE D A 


CUPCNT OF CANADA LTD 


KINGSTON 


CNT 




RIKT FNK INFFRINC f fl 


R I RM I MP* 14 AM 

D InrlPlOnnr 


ALA 


<4 C JdC C w w 


ibm rriRPriR AT ICN 


fntr ten 


ILL 


MAIKFI X% 1 ^TANI FY 

HA 1 A CLIO V O Iflnlt 1 


INIWFR^ITV PIP III TMPT^ 


r i_i f c APP 
un RAuU 


Til 
ILL 


wUAUt n O ft- #1 Ul'L' 


nRAvrt rrRPPRATirN 


PITTSBURGH 


PA 


NAY1 PR R W 


^RFNP FR rUFM IP Al P PIMP AMY 
of cnifCn v>rTft_p^ iual L-Ur!" An i 


K AMC A C P T TV 


MO 


Kill PR f 1 

» A L«**» I* U ft. 


IINTVFR^ITV f!F ^A^KATTHFyAN 


SASKATCHEWAN 


CAN 


NFl ^fiN VARVTN 1 


piycc | innoATnDicc IMP 


ruTTAnn 
uniuAou oc 


T 1 I 
ILL 


HA 99 A F FRANK 


uuFATrtN rni 1 FCF 


kHF ATDN 


ILL 




lltlfFiy< CTCFI PPlMDAlUV 
LURCWO JICCL lUnrANT 


uuA 1 co V I LLt 


D A 
r A 


KAUFMAN MAR VIM 


UNfVFR^ITY DF MI^^DlfRI 


COLUMBIA 


MO 


NFURFRV PR A f R 


liNIVFR^ITY P1F Al RFRTA 
uni icnji i i ur HLOcn i m 


P Al CADV 
U ALU A IV T 


AL B 


KFFFFR FPUARP H 


AWFRITAN TYANAMin 


BOUND BROOK 


N J 


KFkTTN 1 AkPFMPF F 
ni t ■» i wn v m m " t r» v c c 


M Pi ANPFR^PtN MP^rTHM I KI^T 


unncTPM 
nuui i un c.j 


TEX 


KFI Ff4AR BRANT 


IBM 


BIRM INGHAM 


ALA 


MPFI FY IPNK' R 
n l Vf LLC f u Lnn u 


RfPMIANn TFPH FPlfP PFNTFR 


PPI 1 IMP. I A 


C P 

o u 


kfi * fr rn Rrv 


lilil ucp c I tw nF MI^^DIIRT 


rn ijmr i a 

bULUnD I H 


MO 


MflRI F NFNRV 1 
RU0LC nCnn I %i 


RP A CFRUITF rn 


pnrnA ocatu 
LULUA DtAuli 


ci A 
rL A 


KELOiAN SIDNEY 


NAVAL AIR ENGINEERING LAB 


PHILADELPHIA 12 


PA 


NOCNAN BERNARD 


t)NI VFR^ I TY PF MAN I TPIR A 


yiNNIPFH 1Q 


MAN 




TFNNF^^FF PHI YTFTHW IT IM^T 


rnPKFVFi i f 


TENN 


ItfTRPY R Al PH 


1 INK— RFI T PPiMPANY 


ru f p APP a 


T 1 1 
ILL 


tr t FN RR GFRA1 D 

a a Ln ft> f\ uln^Lv 


NORTHUF^TFRN II MFDITAI ^rHflDl 


CH ICAGO 


ILL 


NflRTHAM .1 APF 1 

nun iiipri wnt/c ft 


UP IPt-iN PHMPANY 


u ai am a 7 nn 

nALArALUU 


uTru 
n i un 


Kl AT KitY tTFPPFN C 


FRTF MTNfNC TTMPANY 


HOYT LAKES 


MINN 


rNFIt R T 

i>n ft, 1 1> f\ i 


AMFRIPAN PIl PPiMPANY 

flrCIMv^n UlL VUnrfln i 


Ui4 T T I MP 
nn 111 no 


T MP 
1 ML 




Pill P E PAPFR RFS TMC DF TAN 


MONTREAL 2 


CUE 


Ml HFF VII TTN 1 


PFNFRAI MPTPtRC IN^TITIITF 


Fl TMT 


n i un 


KRAFT RRN 


Fl FTTRn— MflTI VF DIV-CMF 


LA GRANGE 


I LL 


rTTT FRFQFR TTK m 


PI ARK PIl £ RFFIMINA PP1 


PI 1 IP TCI AMP 
DLUC lOLAnU 


Til 
ILL 


KRUPftA R M 


CONTINENTAL CAN COMPANY 


CHICAGO 


ILL 


BVEN DAVIC G 


MIAMI*PAPF IDKIPR PPlI 1 F£F 


M I AM I 


FLA 




AllTTMATir Fl FfTRIT 1 AR<; 


NORTHLAKE 


ILL 


PArHflKi' HFRFBTFl 


AllTPMATIP Fl FPTRTP 1 ARC 
AUlUf^AllU CLCCInlt L ADO 


KIPDTUI AlfP 

nuK I rlLAKt 


I LL 


LARCADE GEORCE A 


HALLIBURTON CCMPANY 


DUNCAN 


OKLA 


PALMER P C 


POI YMFR PflRPPfRATinN 1 IMTTFH 


C AR N I A 

O Al\n I A 


ONT 


* AWRFMfF CFAN U 


MinyF^T RF^FARTH TN^TTTllTF 


KANSAS CITY 10 


MO 


PARKFR THARI F^ P 


HFNFR A 1 MPT PR C DDOWT lift P,RPHWP 


M T 1 PPDPl 


utru 
A} luli 


LEE DR J A H 


QUEENS UNIVERSITY 


K I NGSTON 


ONT 


PARKER S THOMAS 


KAN^AC CTATF I'MIU 

■^AnOAO J 1 M 1 L wnll 


M ANM ATT AM 

nAnnA 1 1 AI\ 


KAN 


LEE E S 


UNIVERSITY OF TORONTO 


TORONTO 5 


ONT 


PARKER ROBERT 


NCRTHFRK Fl FPTRIP 


OTTAWA 


PNT 
un i 




IBM 


NYC 


NY 


PATERSON A R 


IBM 


MHMT P F Al 


Pt IF 


IFIIFK CFfRCF F 


FRIF MINING TTMPANV 




MINN 




^TANPARP fill P HMD AMY 
j lAnUAnl) UlL tUPr An I 


PI CUP) AMP 


P14 T PI * 

Un IU 


LERRY DAVID P 


IBM CORPORATION 


NEW YORK CITY 


N Y 


6ERCCCC G 


IBM PPRPPiRATIPN 
*bh vunrunAi ftun 


yu iTc PIAIMC 

Rnl 1 C r LHlnj 


N Y 


LITTELL DR ARTHUR S 


WESTERN RESERVE UNIVERSITY 


CLEVELAND 


OHIO 


PETRABORG JARROLD 


1 INK— RFI T PPIMPANY 


PHTPAP,P1 <3 


1 1 I 

ILL 


LOGAN S WM 


P R MALLORY S CO INC 


INDIANAPOLIS 


IND 


PLUM GEORGE 


MC COM ELL-WELLMAN ENG CO 


Pt FVFI AMP 1 4 


CHI 


tOGUF V E 


AMERICAN WELDING € MFG CO 


WARREN 


OH 10 


•CORE JESSE H JR 


I Otll^IANA PP1 YTFP^NIP INCT 


RI1CTPM 
nuj tun 


LA 


LOHREY JCHN 


GIDDINGS E LEWIS MACH TOOL CC 


FOND DU LAC 


W ISC 


ffCRTlAN CAROL 


NUMERICAL CCNT6CCMP SERVICES 


pi FVFI ANF1 


OH 1 




ARRflTT 1 ARDR ATDR TFS 


NORTH CHICAGO 


ILL 


PRATT Rlf.FARn 1 

r m i i n i vr«pin u &> 


AIR FPRPF INCTITUTF HF TFPW 


UR T CUT- D A T APR 
nrvlbn 1 r A I Wrc 


nu t n 
un l u 


It CMC PHIL 


IBM 


KANSAS CITY 


MO 


PRITZ HOWARD B 


TRI-STATE COLLEGE 


ANGOLA 


INC 


tONGMAN JACK 


WESTERN MICHIGAN UNIVERSITY 


KALAMAZOO 


MICH 


9URCELL PHILIP 


LEONARD REFINERIES INC 


ALMA 


MICH 


tVNCH MARY LIZ 


IBM 


CLEVELAND 


OHIO 


tURCELL ALAN V 


UNIVERSITY OF WISCONSIN 


MADISON 6 


wise 


MAAS ALBERT C 


GREEN GIANT CCMPANY 


LE SUEUR 


MINN 


RAAI PAUL V 


ALLEN-BRADLEY COMPANY 


MILWAUKEE 


wise 


NACDCNNELL L M 


ROYAL MILITARY COLLEGE OF CAN 


KINGSTON 


ONT 


RAFAEL IAN LECN A 


CCNT AVIATION 6 ENG CORP 


DETROIT 


MICH 


MA GEE ROLAND H 


THE MAGNAVOX COMPANY 


FORT WAYNE 


INC 


RECTOR ROBERT R 


LOUISIANA POLYTECHNIC INST 


RUSTCN 


LA 


MANIOTES CR JCHN 


PURDUE UNIVERSITY 


HAMMOND 


INO 


REIMAN DAVIC H 


NATIONAL LIFE £ ACC INS CO 


NASHVILLE 


TENN 


MARINEfcLI RICHARD 


STATE UNIVERSITY OF NEW YORK 


BUFFALO 


N Y 


RE ITER NEC 


SEWS REG PLAN COMM 


WAUKESHA 


WIS 


HARKCVICH ERNEST 


UPJOHN COMPANY 


KALAMAZOO 


MICH 


RESTA EDWARD V 


IBM 


SAN JOSE 


CAL 


NARQUARCT ROBERT W 


MONSANTO RESEARCH CORP 


MIAMISBURG 


OHIO 


RICHMCND EUGENE L 


JOSEPH SCHLITZ BREWING CC 


MILWAUKEE 


wise 


MARTIN KATHLEEN 


UNIVERSITY OF CINCINNATI 


CINCINNATI 21 


CHIO 


RCBINSCN C G 


CUPCNT CF CANADA LTD 


KINGSTON 


ONT 



7 & 



ROBINSON ROBERT J 


MARQUETTE UNIV 


MILWAUKEE 


WIS 


VERVAERT JCHN 


BELCIT CORPORATION 


BELCIT 


wise 


RGECER LT 6ECRGE L 


FIRST AEROSPACE CONTROL SGUAC 


COLC SPRINGS 


CCLO 


VICK E 


DOUGHBOY INDUSTRIES INC 


NEW RICHMGND 


wise 


-ROSS RICHARD 


UNIVERSITY OF MISSISSIPPI 


UNIVERSITY 


MISS 


VIDEBECK CR RICHARD 


UNIVERSITY OF MISSOURI 


COLUMBIA 


MO 


RUGH J PALMER 


E I DUPCNT DE NEMOURS 


FLINT 


MICH 


VRCCM K E 


PULP S PAPER RES INS OF CAN 


MONTREAL 2 


CUE 


SANDERS PAUL G 


ABBOTT LABORATORIES 


NORTH CHICAGO 


ILL 


WALKER DONALD C 


CRAVO CORPORATION 


PITTSBURGH 


PA 


SANTILLI A J 


NATIONAL STEEL CORPORATION 


ViEIRTCN 


WVA 


WANG JAMES C 


TUSKEGEE INSTITUTE 


TUSKEGEE 


ALA 


SCARLETT JOHN C 


SURFACE COMBUSTION OIVISION 


TOLEDO 1 


OHIO 


NAYBRIGHT GLENN E 


RUST ENGINEERING COMPANY 


PITTSBURGH 


PA 


SCHATZ NATHAN 


NAVAL AIR ENG LAB 


PHILA 


PA 


WEBER HEINZ 


SURVEYER NENNIGER £ CHENEVERT 


MONTREAL 25 


QUE 


SCHAUSS CHARLES E 


U S WEATHER BUREAU 


WASHINGTON 


D C 


WE I DEM AN WILLIAM 


MARCUETTE UNIV 


MILWAUKEE 


WIS - 


SCKERER MATH IAS E 


PIONEER SERVICE S ENGINEERING 


CHICAGO 


ILL 


NESTERMAN E A 


JOHN MCRRELL AND COMPANY 


OTTUMWA 


IOWA 


SCHETTLER RICHARD C 


SOUTHERN ILLINOIS UNIVERSITY 


CARBONDALE 


ILL 


WHEATLEY CR J 


CUEENS UNIVERSITY 


KINGSTON 


ONT 


SCHROEOER ROBERT L 


H F CAMPBELL COMPANY 


DETROIT 10 


MICH 


WHEELER H T 


CARLETON UNIVERSITY 


OTTAWA 


CNT 


SCOTTI C ARM IN J 


IBM CORPORATION 


CHICAGO 


ILL 


WIGCAHL ALLEN B 


ALLEN-BRADLEY COMPANY 


MILWAUKEE 


wise 


SCQIT EDWARD E 


LUKENS STEEL COMPANY 


COATESVILLE 


PA 


WIGHT MAN MARY G 


HEWITT ASSOC 


LIBERTYVILLE 


ILL 


SENM JOHN 


IBM CORPORATION 


MILWAUKEE 


wise 


WILHELM JACCUELYN 


THE UNIVERSITY OF TOLEDO 


TOLEDO 


OHIO 


SHAN AH AN GREGORY J 


CECO STEEL PRODUCTS 


CICERO 


ILL 


WILLIAMS C R 


DCW CHEMICAL COMPANY 


HOUSTON 


TEX 


SHEEOY PAUL J 


CLARK OIL S REFINING CO 


BLUE ISLAND 


ILL 


NILMHCFF KENNETH F 


THE MAGNAVOX COMPANY 


FORT WAYNE 


INC 


SHI OUR A NCRIC 


UNIVERSITY OF ILLINOIS 


CHICAGO 


ILL 


WILSON ROBERT 


JEFFERSON CITY PUBLIC SCHOOLS 


JEFFERSON CITY 


MO 


SIMMONS HAROLD W 


CLARK OIL S REFINING CORP 


BLUE ISLAND 


ILL 


WINK ANNA T 


INDIANA STATE COLLEGE 


INDIANA 


PA 


SMALTZ HUBERT J 


CE PAUW UNIVERSITY 


GREENCASTLE 


INC 


WOOD F W 


NATIONAL TECH CORP 


WEIRTON 


WVA 


SMITH WELBORN H 


AIRBORNE INSTR LAB 


MELVILLE 


NY 


WOODS ARTHUR P JR 


ARMCO STEEL CORP 


HIDDLETOWN 


OHIO 


SMIYH NOEL T 


INDIANA STATE COLLEGE 


TERRE HAUTE 


IND 


WOODS STANLEY W 


STATE HGWY CCMM OF WISCONSIN 


MADISON 


wise 


SMITH BRYAN 


NORTHERN ELECTRIC 


OTTAWA 


ONT 


MCCDWCRTH J A 


COW CHEMICAL COMPANY 


HOUSTON 


TEX 


SMIffH V G 


UNIVERSITY OF TORONTO 


TORONTO 5 


CNT 


WRIGHT DONALD L 


GEORGETOWN UNIVERSITY 


WASHINGTON 


D C 


SOCKS B J 


IBM CORPORATION 


CHICAGO 


ILL 


YACU IUHAIR A 


RALSTON PURINA COMPANY 


ST LOUIS 8 


MO 


SOLOMON LOUIS 


NATIONAL LEAGUE FOR NURSING 


NEW YORK 


N Y 


YAMAMURA E A 


DUPCNT OF CANADA LTD 


KINGSTON 


ONT 


SRRAOLINC GARY A 


UNIVERSITY OF OKLAHOMA 


NORMAN 


OKLA 


YANAGiSANA HARUC 


CONTAINER CORP OF AMERICA 


CHICAGO 


ILL 


SIEBER GEORGE R 


UNIVERSITY OF WISCONSIN 


MILWAUKEE 


wise 


1AHN JULIA 


MCOONNELL AIRCRAFT CORPORATION 


ST LOUIS 66 


MO 


STfELE LAURA B 


GENERAL MOTORS INSTITUTE 


FLINT 


MICH 


ZUKE LOIS 


VA HINES HOSP-BIOSTAT RES DEPT 


HINES 


ILL 


tTEINHAROT NICHOLAS 


INOIANAPOLIS POWER € LIGHT CO 


INDIANAPOLIS 


IND 










5TIFHENUTCH J R 


RGCKFCRD BD OF EDUCATION 


ROCKFORD 


ILL 










STONE J 


IBM CORPORATION 


WHITE PLAINS 


N Y 










STORRY J 


SOUTH DAKOTA STATE COLLEGE 


BROOKINGS 


SOAK 










STRANGE C CLINTON JR 


BELCIT CORPORATION 


BELOIT 


WIS 










ITROVSE E I 


COLUMBIA GAS SYSTEM 


COLUMBUS 12 


OHIO 










STYLES JIMMIE C 


JUNIOR COLLEGE OF BROWARD CY 


FT LAUDERDALE 


FLA 










iSULLIVAN RCNALO A 


CANADA DEPT OF AGRICULTURE 


OTTAWA 


ONT 










TACK CHARLES 


U OF MO SCHOOL OF MEDICINE 


BALTIMORE 


MD 










f ARAWTO DONALD 


CARLETON COLLEGE 


NORTHFIELD 


MINN 










TAYLOR DEAN JR 


U S NAVAL ACADEMY 


ANNAPOLIS 


MD 










TEPPER ALBERT 


HOFSTRA UNIVERSITY 


HEMPSTEAD 


N Y 










TERAJENICZ GEO 


AMERICAN AIRLINES 


FLUSHING 71 


N Y 










THAYER RAYMOND J 


LINE MATERIAL INDUSTRIES 


ZANESVILLE 


OHIO 










THIEt CONNIE ANN 


IBM 


CLEVELAND 


OHIO 










THOMAS ROBERT J 


DE PAUW UNIVERSITY 


GREENCASTLE 


IND 










"THOMAS RICHARD B 


FEDERAL RESERVE BANK 


MINNEAPOLIS 


MINN 










THOMPSON MAJOR IVAN B 


SCHOOL OF SYSTEMS t LOGISTICS 


DAYTON 


OHIO 










THOMSON GEORGE 


ETHYL CORPORATION 


FERNDALE 


MICH 










THURSTON A M 


IBM COMPANY LIMITED 


TORONTO 


ONT 










TRANTUM JOHN 


MRD GATC 


CHICAGO 


ILL 










TRAVER WARD 6 


AMERICAN OIL COMPANY 


WHITING 


IND 










TREVINO JOSE 


INSTITUTO TECH DE MONTERREY 


MONTERREY 


MEX 










■TUCK HARVEY R 


IBM 


DAYTON 


OHIO 










TUCKER LEE 


SOUTH DAKOTA STATE COLLEGE 


BROOKINGS 


SDAK 










1UNMEY JAMES L JR 


J R AHART INC 


CAYTON 6 


OHIO 










TURNER RONALD R 


LANSING BOARD OF EDUCATION 


LANSING 


MICH 










URBAN CHARLOTTE A 


IBM 


ST PAUL 


MINN 










VANSEN RICHARD J 


CCNT AVIATION S ENG CORP 


DETROIT 15 


MICH 










VANSICKLE GEORGE 


INDIANAPOLIS POWER S LIGHT CC 

9 


INDIANAPOLIS 


IND 




IO 







o o 



A Relocatable Programming System 



A relocating assembler for the purpose of this discussion is one which 
assembles a program in such a form that it may be placed anywhere in memory 
at load time j i.e. the program does not have to be re-assembled to change its 
origin* Ihis has been accomplished in the past by manually placing flags on the 
digits of the op-code or by using origins greater than the machine size. The 
author finds that these systems hare definite disadvantages and has decided on a 
system in which each operand (either instruction or DSA) carries with it a system 
assigned relocating tag which determines its relocatability status. 

An assembler which produces a relocatable object deck should be of much use 
in programs employing subroutines (Fortran, SPS) or in systems of programs. 

The K-SPS system which should be in the library by June of 1 9&k consists of 
essentially a 3 pass systems Two assembly passes and one compressing pass. The 
assembly passes may be batched as may the compressing pass. 

The main disadvantage of the system is the increased sise of the object 

deck. 

The following pages taken from the program write-up further serve to explain 
the system and its use. 

Michael Deri 

Engineering Computing Laboratory 
University of Wisconsin 

5-5-61* 
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Program Abstract 



Title ! R-SPS 

Michael Dorl 

Engineering Computing Laboratory 
University of Wisconsin 

1-1-6U 

Users Group Code* 3155 

Oirect Inquiries to : Prof. C. H. Davidson 
Director, 

Engineering Computing Laboratory 
University of Wisconsin 
Madison, Wisconsin 53706 
Phone 608-262-3892 

Descr io t ion / Purpose 

R-SPS provides the capability of relocating ordinary SPS programs at 
load time. The assembled decks which it produces are relocatable in the 
full sense of the word. The system provides the programmer with complete 
control over the relocating feature, either through manual intervention 
or through programming. In addition error checking has been expanded 
end assembly speed increased. 

Spec! f i cat ions 

Storage : UO K or larger (self-adjusting) 
Equipment : 

a) Card system 

b) Automatic divide 

c) Indirect addressing 

The automatic divide feature is used only to process one seldom used 
instruction (MORG). Thus the Auto- divide restriction could be easily over- 
come by not using that instruction. 

The program cannot be used on a 20 K machine. 

P roq ram Language u/.-SPS 

Language Used I" V.'r i te-Up Enc i ish 

Remarks 

Although UW-SPS is not In the programming I ibrery, it is quite similar 
to R-SPS (see write-up). Copies are available upon request from the author. 



Author J 



Date; 



Table of Contents 



Deck Label I ?-nq Sheet 
Program Wri te-up 

General Data. 

Introduction ........ 

Input Format 

Statements (types) 

Special Characters 

Processor Instructions and Declarative Instructions 
Processor Instructions, Examples 
Machine Instructions .... 

Errors 

Table of Op-Codes 

Tab I e of Errors 

Output Format • • 

Operating Instructions 

' Patch Cards , 

Important Addresses • 

k07 Board 



13 



V J 



P roq ram Wri te - up 



Genera I Data 



Program ^lame : R-SPS 
Date : 

Programmer s -Michael Dorl 

Engineering Computing Laboratory 
University of Wisconsin 
.'Aedison, Wisconsin 
Phone 608-262-3892 
User Code 3155 

Mach i ne Conf iqura t ion Requ i red 

a) Card l/O 

b) k0 K or more 

c) Indirect addressing 

d) Auto-divide 



P roqram Devel oped On 



a) 1620 MOD l 

b) Card l/O 

c) Indirect addressing 

d) 60 K 

e) Auto-divide 



Programming System Used in Development 

R-SPS was assembled using an R-SPS assembled by UW-SPS. Although 
UW-SPS is not in the program library, it is quite similar to R-SPS, 
Copies of UW-SPS may be obtained from the author. 

The final form of R-SPS is a dumped deck. The dumper is also availa- 
ble from the author. 



Introduct ion 

R-SPS is a Relocatable Symbolic Programming System. It gives the pro- 
grammer much more complete and ecsy control over the loading and relocating 
operation than any of the several other systems available for the 1620. The 
oecks which it produces can be re;ocated at load time under complete control 
cf the programmer. In addition, assembly t)as been speeded up by a random 
symbol table store and recovery technique so that the assembler is reader 
Dound during pass 1 and punch bound during pass 2 . 

In the following discussion it is assumed that the reader is familiar 
/,ith the use of IBM SPS and the SPS Reference Manual (IBM l620/l?10 Symbolic 
Programming Sy:. . em— C 26-5600). 
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Card Inou t Forma t 



Two separate card 


input 


formats are 


provided. 


l) 


UW-SPS format 










columns 7-12 


for 


label 






columns 1^-17 


for 


instruct ion 






columns 19-77 


for 


operands and 


comments 


2) 


IBM SPS format 










columns 6-11 


for 


label 






columns 12-15 


for 


instruct ion 






columns 16-7^ 


for 


operands end 


comments 



The author believes the UW-SPS format to be superior in that all three 
fields are separated by at least one blank on the card, permitting consistent 
skipping to the beginning of each new field during Keypunching, 

Note that the IBM SPS format is modified slightly in that columns 16-7^ 
ere available for operands end comments, rather than columns 16-75. 

Use of either card format is at the option of the user. The assembler 
recognizes both types as legal, and they may be intermixed in the same pro- 
gram. 

Columns 1-5 are available for card identification under both card for- 
mats; however these columns will not appear on the object listing. Since 
column 6 is used in determining the card format, its use is prohibited for 
other than label field under IBM Format. 

Columns 78-80 for UW-SPS Format and columns 75-80 for IBM SPS Format 
are also available for card identification. 



Statements 

Statements are of three types: 

Processor Instruct ions , which give the assembler certain commands, 

2) Machine Instruct ions , which are translated to actual Machine oper- 
ations, 

3) Declarative Instructions , which tell the processor to set aside 
certain work areas or set up actual constants to be used. 

Special Characters 
The *, and $ are used for special purposes in R-SPS. 
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The (5) sign is used to call for a record mark to be incorporated in 
either a declarative operation or in the P or Q field of an instruc- 
t ion. 

If en (a) sign is used in a declarative operation it must appear as 
the last character in the constant. For example, 

X DC 3,03® 
DC 2,3* 
DC 1,®, • 

DAC 2,*C 
DACF Z,k& 

In the DAC and DACF instruction only terminal 9 signs generate re- 
cords marks. 

In the case where a label is attached to a DC with and sign, the 
address assigned to the label will be the address of the record mark. 

The <? sign -nay be used to generate a record mark, in position 
or Q of an instruction: 

A = 15000 
TDM A,<S> 15 15000 0000* 

3 9> k9 0000* 00000 

The Swill be translated as a record mark in position Pg or Q ^ 
respectively; however the (P when used in this way must appear alone. 

The * when used for address adjustment refers to: 

1) the last assigned address when used in declarative or pro- 
cessor instructions. 

2) the address of the instruction in which it is used. 
The * is treated as a relative address. 

The $ sign is used to call for a symbolic address under a given 
head character. For example, 

A$HI 

refers to HI headed by A . 

Operands used in instructions, for length definition, or for assigned 
addresses may be of the following form. 

+ A + B + C + D 

Up to four terns may be included and may be added or subtracted as 
indicated. No multiplication is allowed. 

The dollar sign may be used to generate a group mark at the end of 
a numeric constant in the same manner as anO sign. 
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The rules which determine whether an operand is relocatable (and 
therefore must be changed during load time) or absolute are given below: 

1) The sum or difference of two absolute quantities is absolute. 

2) The sum or difference of an absolute and a relative quantity 
is relative. 

3) The difference o* two relative quantities is absolute. 

4) Celling for the sum of two relative quantities is illegal. 

The sign of a relocatable operand is preserved at load time, for 
only its magnitude is increased by the relocating vector. 

Processor and Declarat i ve Opera t ions 

In declarative opera t ions, labels or symbolic addresses may be as- 
signed as in I3tt SPS; however, the relocating of such a label is deter- 
mined by its assigned address according to the following rules: 

1) An integer address is absolute and make: the associated label 
absolute. For example, in 

A DS 2, 807 

A will be taken as equivalent to an absolute 80? wherever 
i t appears. 

2) A symbolic address give* its reiocatab i I i ty to the label. If 

Q is an absolute quantity and Z is a relative quantity then 
In the following statements 

A OS , Q 
AA DS , Z 

A will be absolute end AA will be relative. 

3) A processor-assigned address is relative. 

e.g. A OS 2 

In the Declarative Operations which follow all constant lengths must 
be absolute. 



DC, DAC, DS, OAS , DNB 

These pseudo-operations define storage in exactly the same way as 
described in the IBM 1620/1710 SPS Manual. The sole difference is that 
if comments are included without assigning an address to the constant 
and if the assigned address field consists of several blanks, the pro- 
cessor does not take the address to be zero but rather assumes it to be 
oml Med. 

Blanks must not appear in the middle of a numeric constant. 
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DACF (Define Alphabetic Constant Flagged) 

This pseudo-operation performs the same function as does the DAC, 
except that alphabetic pairs appear with their high order digits flagged. 



DSC , OSS , DSB 

These pseudo-operations are not available in R-SPS. 



DORG 

This pseudo-operation is used as described in the IBM 1620/1710 
Manual. Although its operand may be either absolute or relative, it 
is treated as relative. 



DEND 

This pseudo-operation is used to define the end of a R-SPS program 
i . optionally to specify the location at which it is to begin. The 
beginning address may be either relative or absolute; if relative the 
relocating vector will be added to it at load time. Whenever "this 
operation is used control is taken from the loader and passed either 
to the specified address or to a "Halt; Branch- to-zero" pair. This 
operation does not cause the arithmetic tables to be included in the 
object program. 

MORG (Modify ORiGin) 

This operation is used to set the next assigned address register to 
the next larger multiple of the operand. The operand which must appear 
must also be absolute, non-negative, and non-zero. 

This operation is especially useful for starting tables at even 
multiples of 10, 100, or 1000. It should be kept in mind that the re- 
locating vector wi 1 1 inf luence the value of the last assigned address 
at load time. 

It is for this operation that automatic divide hardware is required. 

LOAD (Punch LOADer) 

The R-SPS system employs a relocatable loader which must be called 
for. The statement: 

LOAD X 

causes the loader to be incorporated in the object deck in such a form 
that its first digit wi 1 1 be X . The operand must be absolute, or may 
be omitted. If the operand is omitted the beginning digit of the loader 



18 



- 6 - 

must be supplied from the console typewriter at load time. The operation 
also causes the add table to loaded. 

This feature makes it possible to load part of the program from a 
loader at position X and load another part from a loader at a different 
position Y . It should be remembered, however, that incorporation of a 
second loader destroys all old values of Relocating Vector and the next 
Load Address. The loader occupies 1220 digits. 

The instruction makes it possible to assemble a program in parts 
while including pn|y one loader in the final deck. 

RVEC (Set Relocating VECtor) 

This instruction is used for specifying the value of the relocating 
vector at assembly time. The operation 

RVEC 10184 

causes location 99 to be filled in with 10284 at load time. This in- 
struction has no effect on the last assigned address register. The 
operand must be absolute. The relocating vector is initially set to 1000. 

TABL (Punch TABL e) 

This instruction, which requires no operand, causes the arithmetic 
tables to be punched out. The add table is loaded along with the loader 
but the multiply table is not; thus if any use is made of the multiply 
table this command must be given. 

HEP (HEaD) 

This instruction is used as in IBM SPS. The heading character may 
be either alphabetic or numeric. 



LINK 

The pseudo-op 

LINK A,B,C,D,E,F 

is used to pass control at load time from the loader to a program which 
has either been loaded previously by the loader or to a program originally 
in core. 

The A operand, which may be a relocatable symbol, is the address 
to which control is to pass. The B, C, D, E, and F operands serve 
as identification fields, and are available for use by the user's pro- 
gram. Upon reading the card at load time the following fields are in 
core. 
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locations 
locat Ions 



I ocat ion 
locat ions 
I ocat Ions 



95-99 
90-94 



locations 85-89 



84 

26-30 
43-47 



locations 45-62 



Present Relocating Vector 

The memory address into which 
the next digit of on in- 
struction will be loaded. 

The address to which a branch 
must occur to pass control 
back to the loader. 

A zero. 
A 

The last assigned address re- 
gister at the end of pass 1 
The operands B , C , D , E , 



Upon filling in these areas, a 
control to a type six card at zero. 



B to is executed thus transferring 
(See Output Format). 



This card relocates the A operand if necessary and transmits con- 
trol to the address A via a BT A, A-l. After the user has modified 
any of the above constants which are required, control may be passed 
back to the loader via a 8 to -89 or BB instruction. 



The single digit at location 84 is a switch which controls whether 
or not the program following the LINK instruction is to be loaded into 
core or ignored. If location 84 contains a zero the program following 
the LINK statement down to the next LINK statement will be loaded; if 
on the other hand location 84 is set to a flagged one the program following 
the LINK statement down to the next LINK statement will be ignored by the 
loader (although the cards will be sequence checked). 

It should be noted that the loader does not relocate the operand's 
8 - F . 



END 

This instruction, which also requires no operand, is to define the 
end of an R-SPS program without halting the loading operation. This in- 
struction is used to end part of a fragmented program which is to be 
loaded as one piece. 
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Examples of Use of Processor Instructions 



A) This example shows how LINK might be used to type a program name on 
the console typewriter after the first few cards have been loaded. 



LOAD 


30000 


RVEC 





DORG 


50000 


TYPE RCTY 




WATY 


C0M1 


88 


,,, (B -89 would also do). 


DORG 


•-9 


COMl DAC 


\J, PROGRAM NAME& , 


LINK 


TYPE 



B) This program shows how LINK could be used to read the relocating vector 
for a program from the typewriter. 



START 



LOAD 


55000 




RVEC 


1000 




RCTY 






WATY 


MESSA 




RNTY 


95 




BC4 


♦-36 




SF 


95 




CM 


99,0 




8N 


START 




B 


-89,,, 


(OR 


DAC 


6, RVEC 


'9, 



Machine Instruct ions 

Any of the symbolic operations in the following table may be used and 
are trensle-cd es shown. In addition numeric op-codes in the operation field 
are recognised providing that only two appear end ere left justified. Four 
new operations, 

TON 
TOFF 
BON 
BOFF 

•re included. They «re used es switches as explained below. 



_ Turn ON 
_ Turn OFF 

- Branch ON 

- Branch OFF 
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It is often convenient to remember a past condition by setting a two 
way switch to either a zero or flagged one, and then testing it at some 
later time with either a BNF or BO instruction. The use of the four new 
instructions is equivalent to the following old instructions. 

TON ADSW TDM ADSW,0 

TOFF ADSW TDM ADSw,-l 

BON Z,ADSW BNF Z,A0SW 

BOFF Z,ADSW BD Z,ADSW 

A symbolic label associated with an instruction is a relative 
quantity. 

The flag operand is used as in IBM SPS with one exception. Blanks 
may be included in the flag operand to set apart its various parts. 

e.g. 1 10 

However a pair of characters cannot be connected across a blank. 

e.g. 110 is illegal 
1 10 is legal 

TABLE 1 

TABLE OF ALLOWABLE MNENONIC OPCODES AND THEIR 1620 EQUIVALENTS 



A 


21 


xxxxx xxxxx 


AM 


11 


xxxxx xxxxx 


B 


49 


xxxxx xxxxx 


BA 


46 


xxxxx 01900 


8B 


42 


xxxxx xxxxx 


BC1 


46 


XXXXX 00100 


BC2 


46 


XXXXX 00200 


3C3 


46 


XXXXX 00300 


BC4 


46 


XXXXX 00400 


BD 


^3 


XXXXX XXXXX 


BE 


46 


xxxxx 01200 


BH 


46 


xxxxx 01100 


BI 


46 


xxxxx xxxxx 


BL 


47 


xxxxx 01300 


BLC 


46 


xxxxx 00900 


BME 


46 


xxxxx 01600 


BVO 


46 


xxxxx 01700 


8N 


47 


xxxxx 01300 


BNA 


47 


xxxxx 01900 


BNC1 


47 


xxxxx 00100 


BNC2 


47 


XXXXX 00200 


BNC3 


47 


xxxxx 00300 


BNC4 




XXXXX 00400 



22 





1 A 


*" 
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BNE 


47 


xxxxx 


01200 


s 




22 


XXXXX xxxxx 


3NF 


44 


xxxxx 


xxxxx 


SF 




32 


xxxxx xxxxx 


3NH 


47 


xxxxx 


01100 


S/tt 




12 


xxxxx xxxxx 


8NI 


46 


xxxxx 


xxxxx 


SPTY 




34 


xxxxx 00101 


BNL 


46 


xxxxx 


01300 


TBTY 




34 


xxxxx 00108 


BNLC 


47 


xxxxx 


00900 


TD 




25 


xxxxx xxxxx 


BNME 


47 


xxxxx 


01600 


TOM 




15 


xxxxx xxxxx 


8NM0 


47 


xxxxx 


01700 


TF 




26 


xxxxx xxxxx 


BNN 


46 


xxxxx 


01300 


TFM 




16 


xxxxx xxxxx 


BNP 


47 


xxxxx 


01100 


TNF 




73 


xxxxx xxxxx 


BNR 


45 


xxxxx 


xxxxx 


TNS 




72 


xxxxx xxxxx 


BNRD 


47 


xxxxx 


00600 


TOFF 




15 


XXXXX 0000J-4 FLAGGED ONE 


BNV 


47 


xxxxx 


01400 


TON 




15 


XXXXX 00000 


8NWD 


47 


xxxxx 


00700 


TR 




31 


xxxxx xxxxx 


BNZ 


47 


xxxxx 


01200 


WA 




39 


xxxxx xxxxx 


BOFF 


43 


xxxxx 


xxxxx 


WACO 




39 


XXXXX 00400 


BON 


44 


xxxxx 


xxxxx 


WNTY 




38 


xxxxx 00100 


BP 


46 


xxxxx 


01100 


WN 




38 


xxxxx xxxxx 


BRD 


46 


xxxxx 


00600 


WNCD 




38 


XXXXX 00400 


BT 


27 


xxxxx 


xxxxx 


VVATY 




39 


XXXXX 00100 


3TM 


17 


xxxxx 


xxxxx 


SK 




34 


XXXXX X07*l 


BV 


46 


xxxxx 


01400 


RDGN 




36 


XXXXX X07X0 


BWD 


46 


xxxxx 


00700 


WDGN 




38 


XXXXX X07X0 


BZ 


46 


xxxxx 


01200 


CDGN 




36 


XXXXX X0701 


C 


24 


xxxxx 


xxxxx 


RTGN 




36 


XXXXX X0704 


CF 


33 


xxxxx 


xxxxx 


WTGN 




38 


XXXXX X07X4 


CM 


14 


xxxxx 


xxxxx 


CTGN 




36 


xxxxx X07X5 


D 


29 


xxxxx 


xxxxx 


RON 




36 


XXXXX X0702 


DM 


19 


xxxxx 


xxxxx 


WDN 




38 


XXXXX X07X2 


DN 


35 


xxxxx 


xxxxx 


CON 




36 


xxxxx X07X3 


DNCD 


35 


xxxxx 


00500 


RTN 




36 


XXXXX X07X6 


DNTY 


35 


xxxxx 


00100 










H 


48 


xxxxx 


xxxxx 










K 


34 


xxxxx 


xxxxx 






Errors 


ID 


28 


xxxxx 


xxxxx 










LDM 


18 


xxxxx 


xxxxx 


In the course of ossemb 


ing 


a program, various error conditions can 


M 


23 


xxxxx 


xxxxx 


arise as illustrated in the following 


table. 


MF 


71 


xxxxx 


xxxxx 










MM 


13 


xxxxx 


xxxxx 


After encountering an error 


condition the assembler types out an error 


NOP 


4i 


xxxxx 


xxxxx 


code, a 1 ine number as referred 


to the last labeled statement, and a copy 


RA 


37 


xxxxx 


xxxxx 


of the offending statement. 


The machine then halts. 


RACD 


37 


xxxxx 


00500 










RATY 


37 


xxxxx 


00100 


Depending on the setting of console switches one and two, the error 


RCTY 


34 


xxxxx 


00102 


is treated as shown below when the start key is depressed: 


RN 


36 


xxxxx 


xxxxx 








errors are ignored 


RNCD 


36 


xxxxx 


00500 


Swi ten 2 on — 






RNTY 


36 


xxxxx 


00100 


Switch 1 on — 






statements in which errors 



occur are treated as NOP's. 
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If the user elects to NOP en instruction in which an error occurs, 
the listirg of the program contains a comment that the error has occurred 
in place of the mnenonic instruction. 

If switches 1 and 2 are off the assembler expects a corrected state- 
ment to be entered from the console typewriter. . The statement is read into 
the cleared input-area. Correct processing can not be assured if more than 
80 characters are typed. 

If en error in typing is made, the user can recover via console switch 4. 
Additional Errors 

Three additional error conditions can occur which are not treated as 
above. 

1) If the program is loaded in a 20K machine the comment "MACHINE 
TOO SMALL" will be typed on the console typewriter. It is not 
possible to proceed. 

2) If the symbol table becomes full the comment "SYMBOL TABLE FULL" 
will be typed. All following symbols will be checked for multiple 
definition, but they will not be defined. The comment is typed 
only once. 

3) If at the end of pass 2 the contents of the last assigned address 
counter do not agree with the contents of that counter as of the 
end of pass 1, the comment "END CONFLICT" is typed. Processing 
proceeds after this comment. 



TABLE 2 

ERROR CODES 

C-l DORG operand is missing or zero 

C-2 DEND or £ND operand is negative 

C-3 DNB iDr.gth is illegal 

C-4 Asse.-roier instruction contains a label 

C-5 Incorrect card format 

D-0 Illegal length specified in constant or 

illegal first operand 
D-l Illegal length specification for DS, DC, 

DAS, DAC, or DACF 
0-2 DAC or DACF length specified will not fit 

on card 

D-3 Illegal address specified for DS, DC, DAS, 
DAC, or DACF 
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D-h More than one arithmetic sign occurs in a DC 
D-5 More than fifty numeric characters supplied 

or more characters supplied than specified 

in a DC, DAC or DACF 
D-6 Field not blank after record mark in DC 
D-7 Field after alphabetic constant not blank 
D-8 More than 10 terms in a DSA 
D-9 DSA term includes® or ** 

F_i Non-numeric character in flag operand 

F-2 Flag operand sub terms not in ascending order 

1-1 Illegal identification operand in LINK 

1-2 II legal LINK address 
1-3 II legal LOAD address 

l-k Illegal RVEC operand 

P-0 Field contains something in addition to ** 

or character 
P-l Too complicated en expression 
•-'-2 Alphabetic symbol con-tains too many characters 

or numeric constant contains too many digits 
P-3 Unmatched operator or operand 
P-J| Illegal use of alphabetic symbol 
P-5 Two operators in a row 
P-6 Two operands in a row 
P-7 Illegal character in an operand 
P-8 Multiply relocatable constant 

N-l Leading numeric character followed by alphabetic 

character in op-code 
N-2 Valid numeric op-code followed by non-blank characters 
N_3 Op-code not in table 

S-0 Symbol contains special character or leading numeric 

character 
S-l Undef ined symbol 
S-2 Previously defined symbol 
S-3 Symbol undefined with full symbol table. 



Opera t inq Procedure 

The following list of operations must be performed in order to run 
R-SPS: 

1) Loea the R-SPS deck. It is not necessary to clear memory. 

2) Press start. If you desire operating procedures to be typed 
out »urn switch k on and press start again. If you wish to 
bypass this type-out turn switch k off and press start. 
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3) The console typewriter asks: "IS SOURCE DECK TO BE STORED ON 
DISK, TYPE YES OR NO". If you have a disk file and wish to 
store the source deck on the disk for use during pass 2, 
type a YES. .If you do not wish to use this option type NO. 

The machine tnen comments "SWITCH 1 ON TO CHANGE DISK 
MOOE". This provides for change in the case of error in 
the above operation. 

4) Place the source program in the read hopper and start the 
reader. 

The source program will be read in and processed. If any errors 
are discovered, they nay be treated individually as described in the 
ERROR section. At the end of pass one the comment "END OF PASS 1" 
•ill be typed out. 

5) If you desire output on pass 2 turn switch 3 off and press 
start. If you desire R-SPS to suppress output turn switch 
3 on and press start. 

6a) If the source program has been stored on disk during pass 1, 
processing for pass 2 wi 1 1 proceed using the stored source 
statements. 

6b) If the source program was not stored on disk during pass 1 
it must be read in again during pass 2. 

7) If the R-SPS program has been producing an object deck, near 
the end of pass 2 the program wi I I type "SWITCH 1 ON FOR SYY60L 
TABLE". The symbol table will be punched out if switch 1 is on 
and start is pressed. Otherwise the pass is finished, after 
start is depressed and a comment is typed. 

Steps 3-5 may be repeated for many source programs without reloading 
the processor. 

For those installations without a disk file steps 3 and 6a may be 
ignored. They may be eliminated from the processor by placing a "AINUS 
SI6N in column 1 of the lest card. 

The object deck which R-SPS produces will not in general be ready 
to use until it is compressed. (The compressor punches out the loader). 

8) Load the compressor.. 

9) Enter your object deck and press start. 

The compressor will reed the object deck end produce a compressed 
deck which may be loaded into the machine. 
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Steps 8 and 9 may be repeated for many object decks without re- 
loading the compressor. 

All decks which ere processed or loaded must be in correct sequence. 
If an error in sequence is discovered a typewriter comment will be made. 
Rearrange the deck in correct order and proceed. 



Output Format 

There are six types of output cards as specified by the digits 1-6 
in cotumn ?6 of each card. They are used as specified below: 

1) Card type 1 is used to load up to five instructions per card 
into memory. Columns 1-60 hold the instruction while columns 
6l-70 hold a pair of rel-tags (digits which determine the re- 
locatability of the various P and Q fields) for each instruc- 
tion on the card. Each pair of rel-tags pertains to one in- 
struction, the first to the P field and the second to the 
field. in all such uses of rel-tags a 2 implies a relative 
quantity while a 4 stands for an absolute quantity. Further- 
more, the number of instructions is determined by the number 
of rel-tag pairs. 

2) Type 2 cards are used to specify the next digit into which an 
instruction will be loaded. The value in columns 1-4 of the 
card is stepped by the relocating vector and saved in NEXDIG 
of the loader. 

3) Type 3 cards cause the loader to transfer control to the card 
itself. Instructions located in columns 0-79 of the card are 
then executed and control is returned to the loader by a branch 
to 89 indirectly. These cards are used to: 

a) load or reset the relocating vector, 

b) . change the next card check number (see patch cards). 

4) Cards with a 4 in column 76 are used to load records of abso- 
lute numeric information into memory. They consist of a record 
of information beginning in column 1 of the card, a beginning 
address A in memory for the record, a memory address B to 
be preserved during the loading operation, and a single rel-tag 
which determines the relocatabi I i ty of A and B . A is in 
columns 56-60, B in columns 6l-65» and the rel-tag in column 
55. This card type is similar to the one used exclusively in 
SPS to load information. 

5) This card type is used to load DSA*s into core. Up to 10 
addresses appear in columns 1-50 of the card followed by one 
rel-tag for each address in columns 52-6l. Again the number 
of items is determined by the number of rel-tags. 
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6) This final card type is used to process the LINK statement. 
The card loads the following' data into locations 0-?2s 

A * + 30 , 99,, THESE INSTRUCTIONS ARE 

A * + 23 , 99», NOP S IF A A3S0LUTE 

3T A, A-l 

B -89, WIDTH 

DSA X1,X2,X3,X4,X5 

A return address to the loader is filled in locations 85-89 and 
location 84 is set to u zero before control is transferred to location 
zero (see LINK statement). 

A 4 digit consecutive card number is found in columns 77-30 of 
a 1 1 cards. 



Patch Cards 



Various errors in the object deck can be corrected by means of 
patch cards placed in the compressed deck. These patch cards may 
be of the form of any of the six card types specified above. 



For example to place an 
AM 



in location 1000 relative, where 
following two cards could be used. 



A, 2,10 

A is 14287 



01000 

1114387000-2 

^ column 1 

column 6l 



24 




- 288 



column 76 



These two cards would be incorporated into the patched deck before the 
last card and the whole deck renumbered. 

An alternate procedure to renumbering the deck is to incorporate 
a type . 3 card to change the next card check number located in the 
digit of the loader. The following 3 cards would then do the trick. 



01000 

1114287000-2 24 
1100089-002216000890-2381200089-0022 . 



4900039 




-287 

2- 288 
1-289 

3- 290 
-288 
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Important Addresses 



Assemb I er 

Beginning Pass 1 00322 

3eginning Pass 2 00894 

Symbol Table Punch Routine 05582 

Initial izaf ion 30002 

Loader (locateo at L) 

Next Card Check Number L+22 

Relocating Vector 00099 

Next Instruction Address 00094 

Compressor 

Entry 20506 



407 Board 

The board wiring shown in the following diagram can be used for 
listing the uncompressed output of an R-SPS program. It also serves 
to list IBAA and UW-SPS uncompressed output. The switch operations are 
as foi lows: 

Switch 1 on double space 
off single space 

Switch 2 on for ISM SPS 

Switch 3 on for R-SPS 

All switches are off for UW-SPS. 
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HISTORY 



The writing of compilers seems to be one of the 
more popular pursuits of the members of the l620 Users 
Group. At least six different FORTRAN compilers for the 
1620 have been written by non-IBM personnel, which 
testifies to the enthusiasm and ability of 1620 users and 
to their very real desire to build the best possible 
mousetrap . 

All previous user-written compilers have accepted 
variations of the FORTRAN I language, with the exception 
of the University of Wisconsin FORGO, a load -and -go 
compiler for student problems, which accepted a somewhat 
restricted FORTRAN II. To our knowledge, KINGSTON 
FORTRAN II is the first user -written FORTRAN II for the 
1620. We hope that this Initial effort will encourage 
others to tackle the problem and improve on our system in 
the same way that improvement followed improvement in the 
user -written FORTRAN I compilers. 

The initial impetus for KINGSTON FORTRAN II came 
in about August 1963, from those of us living in Kingston, 
Ontario, when we started to find out how UTO FORTRAN 
operated, with the intention of providing a suitable 
FORTRAN for a 40K 1620. It soon became apparent that 
many useful features of FORTRAN II could be incorporated 
at little extra work. Messrs. Lee and Field, authors of 
UTO FORTRAN, were approached for ideas and suggestions, the 
outcome of which was a decision to Join forces. After some 
preliminary discussion, it was found that it would be no 
more work to write a whole new system than to make the 
desired alterations in UTO FORTRAN. 

The basic concepts were conceived in three 
rather long evening sessions during the October 1963, 
1620 Users Group Meeting in Pittsburgh, Pa. By the end 
of this meeting the source language structure and the 
organization and general logic of the compiler were 
developed and agreed upon. The various sections were 
then allocated to the individuals best qualified to 
handle them. By the first week in January, the main 
sections of the compiler had been written and tested 
and it remained to tie the pieces together in a operating 
system. This was done in Kingston, Ontario, during late 
January, when all 5 authors worked for five days on two 
identical 40K l620's (Du Pont of Canada and Queen's 
University) . 
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We hope that Users with 4oK l620's will find the 
system useful and easy to operate. We have tried to 
include every useful idea from other people's efforts so 
that the system would be as speedy and compact as possible, 

The work was divided as follows: 

J. A. Field - Input/Output statements, DO statements, 

input/output subroutines, FORMAT 
statement . 

D. A. Jardine - Arithmetic and function subroutines, 

write-ups and operating manuals. 

E. S. Lee - Compilation of arithmetic expressions. 

J.A.N. Lee - Compilation of everything not handled 
by the other authors . 

D.G. Robinson - Symbol table organization, including 
COMMON, DIMENSION, EQUIVALENCE, TYPE. 
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KINGSTON FORTRAN II 



This write-up describes a FORTRAN system for the 
IBM 1620 equipped with automatic division, indirect 
addressing, additional instructions (TNS, TNF, MF), 
card input-output and minimum 4oK memory. It is assumed 
that a Model E-8 or larger ^07 is available for listing. 

The language is that of IBM's FORTRAN II with a 
few modifications and a number of additions. For the 
purposes of this write-up it is expected that the reader 
is at least on speaking terms with the FORTRAN II 
language . 

The compiler for this system batch compiles a 
source program in one pass, at approximately twice the 
speed of existing compilers for the 1620. The execution 
speed of the object program is also approximately twice 
that of IBM's FORTRAN II. Considerable effort has been 
made to speed up all important parts of the system; in 
addition, more core storage is available for the object 
program than existing FORTRAN II compilers allow. 

SOURCE PROGRAM CARDS 

These are as required for IBM FORTRAN II. Any 
number of continuation cards are possible, but the 
statement may not contain more than 300 characters 
(blanks not included except in Format statements). 

ARITWETIC PRECISION 

Real numbers: 8 digit mantissa, 2 digit exponent. 
Notation is excess 50; (I.e. 1.0 • 5110000000) 
Integer numbers: 4 digits, modulo 10000 

VARIABLES 

These are as in IBM FORTRAN II. 1 to 6 
alphabetic or. numeric characters, starting with a letter, 
which, for integer variables, must be one of I, J, K, L, 
M, N, unless otherwise specified in a TYPE declaration. 

SUBSCRIPTS 

A variable with, at the most, two subscripts 
appended to it can refer to an element of a one- or two- 
dimensional array. Three dimensional subscripting Is not 
permitted . A subscript may be an expression of any 
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desired complexity , provided only that the result of the 
evaluation of the expression be an integer quantity. 
This should be positive if you want to avoid trouble. 
However, a zero or a negative subscript can be used. To 
use this effectively, the programmer must know how data 
areas are laid out in memory. See the operating 
Instructions : 

Examples of Subscripts: 

I 
3 

2+MU 
MU+2 
J*5+M 
5*J 

6*J-K+2-10/L+M 

4 * J ( K+2 -L+M ) +K (M ( N+2 ) ) /3 

FIXF(A*B+3.0«*SIN(X) )+L/2 

The variable in a subscript may itself be subscripted, and 
this process of subscripting may be carried on to any 
desired depth of subscripting. It can, in fact, be carried 
far beyond the point where the average programmer understands 
what he is doing. 

SUBSCRIPTED VARIABLES 

Only singly or doubly subscripted arrays may be 
defined. The size of these must be specified in a DIMENSION 
statement. 

EXPRESSIONS 

These are defined and organized exactly as in IBM 
FORTRAN II. 



LIBRARY FUNCTIONS 

Ten library (closed) functions are included in the 
KINGSTON FORTRAN II System. These are listed in Table I. 



- 5 - 



TABLE 1 



Closed Subroutines 



Function 
Definition 

Sine of the argument 

Cosine of the argument 

Exponential (e x ) of the 
argument 

Square Root of the argument SORT 

LOG 



Function 
Name ( s ) 

SIN 

COS 

EXP 



Natural logarithm of 
the argument 



No. of 

Arguments 

1 
1 
1 

1 

1 



Arctangent of the 
argument ATAN 

Arctangent of (arg x / 
arga) ARCTAN 

Slgnum of the argument; 

=-l.for X<0. ,=0. for 

X,0.,=+1. for X>0. SIGNUM 

Absolute value of Arg 1 

with the sign of Arg 2 SIGN 

Choosing the larger value 

of the two arguments MAX 

Choosing the smaller value 

of the two arguments MIN 



Type Of 
Function Argument 



Real 
Real 
Real 

Real 

Real 

Real 

Real 

Real 
Real 
Real 
Real 



Table 2 lists the open or built-in functions 
compiled in-line every time the function is referred to 



Real 
Real 
Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 
These are 



TABLE 2 



■ Function 
Definition 



Absolute value of the 
argument 



Function 
Name 



ABS 
ABS 



No. of 

Arguments 



Type Of 
Function Argument 



Real 
Integer 



Real 
Integer 



Table 3 lists closed functions which are permanently 
stored in the machine, whether or not they are mentioned by 
name in a FORTRAN source program. 



37 



- 6 - 



Function 
D efinit ion 

Floating an integer 



Function No . of Type Of 

Name Arguments Function Argument 



FLOAT 



Real 



Integer 



Truncation, largest integer 
in the argument, modulo 
10,000, with sign of 
argument FIX 

THE ARITHMETIC STATEMENT 



Integer Real 



The arithmetic statement is the same as in IBM 
FORTRAN II except for the extensions in complexity of 
evaluation of subscripts. 



CONTROL STATEMENTS 



The control statement flexibility in standard 
FORTRAN'S leaves something to be desired, particularly 
where the program is complex and core storage is at a 
premium. These conditions, it might be noted, are the 
normal ones for almost all problems. KINGSTON FORTRAN II 
attempts to improve this situation by expanding the 
capabilities of the ASSIGN and assigned GO TO statement 
and by extending the ASSIGN concept to the other control 
statements. 



A SSIGN STATEMENT 

ASSIGN i TO n 

In IBM FORTRAN II, the ASSIGN statement is used only 
in conjunction with an assigned GO TO statement. For 
instance, 

ASSIGfl 3 TO J 

GO TO J, (3,5,9,243) 

will cause a branch to the statement numbered 3. 

The effect of the ASSIGN statement is to "equate" the 
non-subscripted integer variable J to statement number 3. The 
subsequent GO TO J, (3,5,9,2^3) is then interpreted as GO TO 3. 
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In KINGSTON FORTRAN II, this concept has been 
modified and expanded considerably. To describe these 
changes, the following definitions are used: 

Statement Label - A statement label is the name attached 
to the memory location containing the first instruction 
compiled from the statement identified by the label. There 
are two kinds of statement labels: 

Numeric _Statement_Label - usually known as a 
statement numBerT ~A"n~unsigned integer number of 
from one to four digits long. 

Alphabetic _Statement_Label - A variable which may 
Be subscripted" €5 any desired complexity and which 
by one or more ASSIGN statements has been equated 
to a numeric statement label (statement number). 

It is most important to realize the difference between a 
statement label and an arithmetic variable. ASSIGN 3 TO J 
will place in J the address of the first instruction compiled 
from statement number 3. J = 3 will cause the number 0003 
to be placed in J. The sequence of statements 

ASSIGN 3 TO J 
GO TO J 

will cause a branch to statement numbered 3. However, 

J = 3 
GO TO J 

will result in disaster. Moreover, 

ASSIGN 3 TO J 
J = J + 1 
GO TO J 

will not transfer control to the statement numbered 4. 
Arithmetic on assigned variables is not permitted; assigned 
variables are not in any way the same as arithmetic variables, 
except that they may be subscripted and stored in an array. 
They may also appear in COMMON, DIMENSION, and EQUIVALENCE 
statements. 

It is possible in KINGSTON FORTRAN II, to equate two 
alphabetic statement labels by an ASSIGN statement. If the 
first statement label in the ASSIGN statement is alphabetic, 
it must be enclosed in parentheses. 
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The following examples illustrate the ASSIGN statement: 

ASSIGN 3 TO N (St. label N is equated to St. label 3) 

ASSIGN (N) TO J (St. label J is equated to St. label N) 

ASSIGN 3 TO I(K) (same as the line above. K must have been 

defined before this statement and I must be 
dimensioned ) . 

ASSIGN (I(K)) TO L(3+M/ 1 4-M**3) 

(same as above. The alphabetic statement 
labels can be subscripted as desired). 

Since the primary definition of a statement identifier is its 
occurrence as a statement number, it is necessary that any 
given statement identifier must ultimately be defined (through 
a series of ASSIGN statements if necessary) in terms of a 
statement number. Failure to observe this rule will cause 
trouble. For example, 

3 A = B 

ASSIGN (J) TO K(L) 

is not correct, because J has not been associated with any 
statement identifier when the ASSIGN statement is executed. 
However, 

3 A = B 

ASSIGN 3 TO J 
ASSIGN (J) TO K(L) 

is correct . 

Alphabetic statement labels may be used in the 
following control statements: 

GO TO /both unconditional and assigned) 

IF (SENSE SWITCH i) 

IF (arithmetic expression) 

Computed GO TO 

Alphabetic statement labels may not be used in a DO statement. 



GO TO STATEMENT 

GO TO n unconditional GO TO 

GO TO n, (ni,n 2 , n m ) assigned GO TO 
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where n Is a statement label. If n is alphabetic, then it 
must previously have been defined in an ASSIGN statement. 
The assigned GO TO statement is treated exactly like the 

00 TO statement. The comma and parenthesized list are 
optional and will be accepted but ignored by the compiler. 

Computed GO TO S tatement 

GOTO (ni,n2,n 3 n m ),i 

where «i ,n 2 n m are statement labels. If alphabetic they 

must have been previously defined by ASSIGN statements. 

1 is a fixed point (integer) variable or expression, i may 
be subscripted as desired. 

ARITHMETIC IP STATEMENT 

. IF (a )n x ,n 2 ,n 3 

where a is an integer or real {floating point) expression 
of any complexity, and ni,n 2 ,n 3 are statement labels. If 
alphabetic, ni, n 2 ,n 3 must have been previously defined in 
ASSIGN statements. 

IF (SENSE SWITCH) STATEMENT 

IF (SENSE SWITCH i)n 1 ,n 2 

where i is a one or two digit unsigned integer number or an 
integer expression, and ni,n 2 are statement labels. If i is 
an Integer expression, the low order two digits of the value 
of the expression are used as the value of i. The two digit 
numbers resulting from this are the numbers of machine 
indicators, not just console switches. 

THE DO STATEMENT 

DO n i = mi ,ma ,m 3 

where n is a statement number, i is an unsigned integer 
variable which may be subscripted and mj.,ma,m 3 are 
Integer variables or integer expressions of any desired 
complexity, positive or negative, n may not be an 
alphabetic statement label, and i may notHbe" an expression. 
There are no particular restrictions on mi,m2,m 3 . In 
particular they may be positive or negative quantities. 
If mi=ma, the DO will be executed once only, mi, ma, ma 
should be chosen so that the DO loop terminates. See below 
for an example of a never-ending DO -loop. 

Example : 

DO 5J = K+L-5, M-I(J0B(KK)),-L 
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If rai,mg,ra 3 are expressions, their values are the values of 
the expressions when the DO statement is encountered at 
object time, and these values are unaffected by alteration 
inside the DO of the values of the variables in the 
expressions mi,m2,m3. 

As a result of allowing positive or negative values 
for m}. ,rm ,m 3 , it is legal to have DO loops which count 
down. For example, 

DO 5 I = 10, 1,-1 

will cause I to run from 10 to 1 in steps of (-1). The 
following is also permitted. 

DO 10 J = -10,5,2 

which will cause J to assume successively the values -10, -8, 
-6, -4, -2, 0, 2, 4. if the DO variable assumes zero or 
negative values, it may be used, with caution, as a subscript 
Intelligent use of negative or zero subscripts demands 
knowledge of the layout of data areas in memory, as described 
in the operating instructions. 

Care should be taken to -see that the DO index 
terminates properly. For instance, 

DO 20 K = -10, -1, -2 

will increment nearly 5000 times before termination. The 
same Is true of 

DO Ho K = 10, 1, 2 

Termination in both cases occurs because integer arithmetic 
is performed modulo 10000. 

All the restrictions on DO statements currently 
imposed by IBM FORTRAN II are also in force in KINGSTON 
FORTRAN, except as already mentioned. 

CONTINUE STATEMENT 

Same as IBM FORTRAN II. 

PAUSE STATEMENT 



PAUSE 

PAUSE n, where n is a fixed point constant, variable 
or expression. 



- 11 - 



The typewriter types PAUSE n, together with error 
messages (see operating instructions) and the machine halts. 
If n Is a variable or expression, its current value is typed. 
PAUSE (without n) generates an In-line halt command; there 
Is no typing. In either case, depression START will cause 
resumption of program. 



STOP STATEMENT 
STOP 

STOP n, where n is a fixed point constant, variable 
or expression. 

The typewriter will type STOP, followed by the 
current value of n. If n is not specified, STOP 0000 will 
be typed. CALL EXIT is then executed (see operating 
Instructions ) . 



END STATEMENT 

END is an instruction to the compiler that the 
program is complete. An END statement must be physically 
the last card of the main line program and of each sub- 
program which is associated with the job. The END statement 
results in CALL EXIT except in a sub-program, where it is 
Interpreted as a RETURN statement. 



FUNCTION AND SUBPROGRAM STATEMENTS 

FUNCTION and SUBPROGRAM statements are the same in 
KIN0STON FORTRAN as in IBM 1620 FORTRAN II, and the same 
restrictions apply. 

Because the compiler is one-pass, the subprograms 
are not compiled separately from the main program. See the 
operating instructions for further details. 



INPUT/OUTPUT STATEMENTS 

The INPUT/OUTPUT statements in KINGSTON FORTRAN II 
are similar to those of IBM FORTRAN II, except that 
expressions are permitted, as well as simple variables, 
in certain places in INPUT/OUTPUT lists. Indexed lists, 
array names (to handle a whole array) and all other standard 
FORTRAN II features are allowed. It is not necessary to 
specify a FORMAT statement number in an I/O statement. If 
no FORMAT statement number is given, the system will supply 
FORMAT (5N). See the description of FORMAT for an 
explanation of FORMAT '5N). 
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The permitted INPUT/OUTPUT statements are: 

READ (card Input), ACCEPT TAPE, ACCEPT (Input on console 
typewriter), REREAD (re-reads last Input record), PUNCH, 
PUNCH TAPE, TYPE (console typewriter), PRINT (on-line 
printer ) . 

Indexed I/O Lists 

As in IBM FORTRAN II, the statement 

READ 10, {(A)I,J), 1=1,10), J=l,10) 

will cause 100 numbers A (1,1) to A (10, 10) to be read into 
array A. Similarly, 

READ 10, ( (A(I,J), I=K,L), J=M,N) 

will cause various elements of A to be read in under the 
control of the Indices I and J. 

In KINGSTON FORTRAN II, the limits on the implied 
DO's (I=K,L; J=M,N) may be expressions. Furthermore, the 
names of the input variables may be subscripted to any 
desired depth. For example: 

READ 10, ( ( (A(I(K1), J(M1)), Kl=K-JOB*2 ,L+5-J6 ) ,Ml=M*8-MM9,N-3*Nl8 ) 

will be executed as 

DO 100 Ml = M*8-MM9, N-5*Nl8 

DO 100 Kl = K-J0B*2,L+5-J6 

100 READ 10, A(I.'K1;, JfMl)) 

where I and J are names of one-d lmens ional arrays which must 
previously have been defined. 

KINGSTON FORTRAN II permits the same kinds of expressions 
in indexing as are permitted in standard DO statements. The 
implied DO in and I/O list may run forward or backward, and 
may have integer expressions of any desired complexity. 

INPUT LISTS 

In an input list, the variables may be only simple 
variables or indexed variables. Input of expressions is 
meaningless, and not permitted. For example: 
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READ 10, M, Q, A(I(K+4*L), M (N-5*L+4 ) ) ,B 
is permitted, provided I, K, L, N and _M are previously defined. 
READ 10, A+B-C(K) is not permitted. 



OUTPUT LISTS 

Output lists may be fully indexed lists, as' 
described above. In addition, expressions may appear in the 
list as output quantities. For example: 

PUNCH 20, C*D/(L0GF(X-Y*Z)+10.3), Y, D 

will cause 

C*D/LOGF(X-Y*Z)+10.3 

to be calculated at the time the punch statement is encountered 
and its value to be punched, together with the values of Y and 
D, on a card, according to Format statement 20. The value 
of the expression in an output list is lost when it is 
output, and is not available for further calculation. The 
expression In an I/O list may be of any desired complexity, 
and may be indexed as required, either by DO statements, or 
by implied DO statements in the list itself. For example: 

PUNCH 20, ( ( (C*SQRTF(A(I,J) )-M(I) ),I=1,L+4,3),J=I+1,K-10,5) 
will cause values of C*SQRTF (A (I , J ) )-M(I ) 

to be punched out for values of J from 1+1 to K-10 In steps 
of 5 and values of I from 1 to L+4 in steps of 3. 



ASSIGNED FORMAT NUMBERS 

Format statement numbers may be assigned by ASSIGN 
statements in the same way any other statement number can. 
Hence, input/output statements may use alphabetic statement 
labels in place of Format statement numbers. For example, 
the following program is permitted : 

3 FORMAT (5(13, F10. 5) ) 

4 FORMAT (515) 

5 FORMAT (517) 
ASSIGN 3 TO J 
ASSIGN k TO K(l) 
ASSIGN 5 TO K(2) 

READ J, (M(I),A(I), 1=1,5) 
DO 10 L=l,2 
10 READ K(L), (M4(l), 1=1,5) 
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Note that the first statement will be executed according to 
Format statement 3, while the second READ statement will be 
executed according to Format Statement h when L=l, and 
according to Format Statement 5 when L=2. 

The subscripted variables in all the above examples 
must previously have been mentioned in a DIMENSION statement. 



ARRAY NAMES IN I/O LIST 

As in IBM FORTRAN II, array names without subscripts 
may appear in 1/0 lists. Mention of an array name will 
cause the entire array, as specified in the DIMENSION 
statement to be input or output. Two dimensional arrays 
are handled column-wise - 

DIMENSION A (10,10) 
READ, A 

will cause the entire 100 elements of A to be read in, in 5N 
notation. The elements of A must be in order A (1,1), A(2,l), 
A(3,l), A(4,l), A(5,l), A(6,l), etc. : 



FORMAT STATEMENTS 

Format statements are, in general, equivalent to 
Format statements allowed in 7090/9 1 * FORTRAN II. E, F, I 
and A conversion are permitted. Repetition of field format 
is allowed before E, F,I or A. Thus FORMAT (I2,3E12.M) is 
equivalent to 

FORMAT (I2,E12.4,E12.4,E12.4) 

Parenthetical expression is permitted in order to 
enable repetition of data fields according to certain Format 
specifications within a longer FORMAT statement. The number 
of repetitions is limited to 99. Thus, 

FORMAT (2(F10.6,E10.2) ,14) 

The level of parenthesizing can be extended to a second level, 
thus : 

FORMAT (2(l4,2(F6.2,F8.3) ) ) is equivalent to 

FORMAT (I4,f6.2,f8.3,f6.2,F8.3,i4,f6.2,F8.3,P6.2,f8.3) 

The depth of such nesting of parentheses must not exceed 5, 
which appears to be more than would ever be necessary. 
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N -Format 

Rigid format on input data is not always desirable, 
and in many cases makes key-punching more difficult. 
KINGSTON FORTRAN allows so-called "free form" input, as well 
as the more familiar fixed or rigid format. If the FORMAT 
statement specifies I, E or F format on input, then the 
input data record must conform to the normal rules for such 
format as specified in IBM manuals. However, if N format 
(denoting "free form") is used, the data numbers may appear 
anywhere on the card, and input is controlled by the input 
list. 

N format is used like E, F or I format except that 
no width or decimal point location digits are required or 
permitted. For example, 

READ 10, I, J, A, C, Z 
10 FORMAT (5N) 

will cause the program to read in a record of 2 integer 
numbers followed by 3 floating-point numbers. In N format, 
a number is defined as: any number of leading blanks, 
followed by a meaningful collection of digits, followed by 
1 trailing blank. Note that the blank column Immediately 
following the right-most digit or character of the number 
is considered part of the number, and serves to delineate 
the right-hand end of the number. 

In the case of E numbers handled with N-format, 
blanks after the letter E are Ignored, and the machine 
uses the next set of digits as the exponent. For example: 

bl .2?l»5678E-05b 
will be interpreted as .000012345678. 
The number bl .2345678Ebbbbb-05b 
will be interpreted in the same way. 

bl.2545678Ebbbbl03 
will result In an error condition (see operating instructions). 

bl.2345678E bb 00005 

will be interpreted as 123456.78. Leading zeros before 
either the mantissa or exponent are ignored. 
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An E- type number handled by N-format ends with the 
blank after the exponent digits. 

A FORMAT statement may specify N, E, F, I or A format 
as required, thus allowing both free and rigid format on the 
same card. Note that, in N format, if a floating point 
number does not have a decimal point, it is assumed to be 
after the low-order digit of the number. 



Some examples may help: 



READ 10, I, J, A, C, Z 



10 FORMAT (5N) 



The card might look like: 

bbl23bbbbbbl2bbbl6.3bbbbbl .2E6bl23000bbb etc. 

N Format requires only that at least 1 blank column 
follow the number. In this case, I, J, A, C, Z would be 
stored as 123, 12, l6.3, 1.2E06, 123000. resp. 

READ 11, I, J, A, C, Z 

11 FORMAT (13, 16, N, F10.3, N) 

The Format requires that I, J, C follow rigid format. 
The card might look like: 

bl2bbbl2bbbbbbl20.bbbbl234567bbbl6.8bbb etc. 



This would give the following results: 



Variable 



Value 



12 

120 

120. 

1234.567 
16.8 



Note that the F-specif icatlon for C starts on the 
first column after the blank following 120., (see the position 
of the arrow) since this blank is considered part of the 
value of an N-Format number . 

An output, N format is equivalent to 1PE14.7,1X 
for floating point numbers, and 15, IX for integer numbers. 
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N Format allows repeated format and parenthesizing, 
and follows the usual rules for them. 

If a number is positive, the output under E, F, I 
or N Format will not contain a leading plus sign. On I 
Format, no space is left for it, so that It is possible to 
construct a fully packed output record provided all numbers 
are positive. N Format generates a space for a + sign and a 
space following the number. 

If a floating point number is output under Iw Format, 
the integer part of the floating point number is convered to 
Iw Format. Thus 128342.56 output with 110 Format would 
appear as bbbbl28j42. 



SCALE FACTORS 

To permit more general use of E and F conversion, a 
scale factor followed by the letter P may precede the 
specification. The scale factor is defined such that 

Output number = internal number x j.o scale factor 

Internal number = input number x iQ _3cale factor 

This operates exactly the same as in IBM FORTRAN II for the 
larger machines. For example 

FORMAT (2PF10.4) 

used on output will multiply the number by 100 before output. 
On input, it will divide the external number by 100 before 
storing it in the machine. 

On E-Format output, the effect of P-scaling is to 
shift the decimal point in the mantissa and to adjust the 
exponent by the amount of the shift . 

Thus, if FORMAT (E15 .8) , used for output, produced 
the number . 12345678E-04 , then FORMAT (3PE15.5) would produce 
125.M5678E-07 for the same number. Note that for E-Format 
output. P-scaling does not change the magnitude of the number . 
It shifts the decimal point, and makes a compensating change 
in the exponent. For F -Format, P-scaling alters the magnitude 
of the number on input/output . 



VARIABLE FORMAT 

KINGSTON FORTRAN II allows variable Format. That is, 
Format specifications may be read in at object time. In this 
way, data may be read in under control of a Format Statement 
which itself has been read in. Variable Format statements 
must be read under A -Format into an array by means of a 
normal Read statement. 
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For example : 

DIMENSION FMT (15) 

READ 10, ( FMT ( I ) , 1=1,14) 

10 FORMAT (15A5) 

will cause 70 characters of input record (i.e. the Format 
Statement being read in) to be stored in array FMT. It is 
then possible to write: 

READ FMT, A, B, X, Z, (A ( J ) , J=l , 10 ) 

where the Input variables will be read In according to the 
Format Statement stored In array FMT. 

It is also possible to alter array FMT by programming. 
This should be done with some care, otherwise the Format 
Statement stored in array FMT may become completely 
unintelligible. 

The name of the variable Format' specif ication must 
appear in a DIMENSION Statement, even if the Array size is 
only 1. 

The Format read in at object time must take the same 
form as a source program Format Statement except that the 
word Format is omitted, i.e. the variable Format begins 
with a left parenthesis. 



SPECIFICATION STATEMENTS 
COMMON 

Variables, including array names, appearing in 
COMMON statements will be assigned core storage locations 
beginning at the high end of memory, and will be stored at 
object time in descending sequence, 10 digits per variable, 
or per item of a dimensioned variable, as they are 
encountered in the COMMON statement. If a variable is a 
dimensioned variable, the size of the dimensioned array must 
appear in the COMMON statement, and the variable must not 
again be dimensioned in a DIMENSION statement. The COMMON 
statement must precede EQUIVALENCE or DIMENSION statements 
(if any) and must precede the first statement of the source 
program. For example: 

COMMON A,B,I,J,X(10,3),Y(5) 

(Inclusion of dimensioning information in COMMON statements 
is allowed in FORTRAN IV). 
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DIMENSION 

The DIMENSION statement is the same as IBM FORTRAN II 
except that variables already mentioned in COMMON may not 
again be dimensioned and that only 2 subscripts are allowed. 

DIMENSION Z(10,5),V(400) is permitted 

DIMENSION X(10,5,10) is not permitted 



EQUIVALENCE 

EQUIVALENCE (a,b,c,- — ), (d,e,f ,--) 

where a,b,c,d,e,f, are variable names. KINGSTON FORTRAN 
imposes some restrictions on EQUIVALENCE statements which are 
not pesent in IBM FORTRAN II. These are noted below: 

1. Single variables may be equivalenced only to single 
variables . 

2. Arrays may be equivalenced to other arrays, of the same 
size only. 

5. Single variables may not be equivalenced to individual 
items of arrays, nor may single items of two arrays be 
equivalenced. In general, no subscripts may appear in 
an Equivalence statement. 

4. Because the compiler is single pass, it is crucial that 
the order in the source deck be: 

COMMON (if any), DIMENSION (if any), EQUIVALENCE (if any). 

They must precede the first executable statement of the 
program . 

5. If arrays are to be equivalenced, the first item only 
in the list must have been defined previously in a 
COMMON, or DIMENSION declaration, and the remaining items 
in the list must not have been so defined. The 
Equivalence statement itself defines these remaining 
items. If single variables are to be equivalenced, and 
any item in the Equivalence list has been defined in a 
previous COMMON or TYPE statement, it must be first in 
the Equivalence list, and the other items must not have 
been defined in a COMMON or TYPE statement. For example, 

COMMON A,B(10,5),C 
DIMENSION D(50) 
EQUIVALENCE (A,F,G) , (D,X) 

This puts A, array B, and C in common storage; defines 
array D; defines F and G as single variables in the same 
memory location as A; and defines X as a 50-item vector in the 
same location as D. The following are errors: (in the 
example above) . 
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EQUIVALENCE fD,A) ( para. 1,2) 

EQUIVALENCE (B(1,1),G) (para. 3) 
EQUIVALENCE (X,D) (para. 5, X not defined) 

EQUIVALENCE (G,A,F) (para. 5, G not defined, 

A defined ) 
EQUIVALENCE (D (50 ) ,X( 50 ) } (para.?) 

6. To preserve compatibility with other FORTRAN systems, 
which require DIMENSION statements for all array variables 
in an Equivalence list, KINGSTON FORTRAN allows extra 
DIMENSION statements after the Equivalence statements. 
Such DIMENSION statements may be used to mention the 
equivalenced variables, but since they have already been 
defined in the Equivalence Statement, the compiler will 
ignore them. It will not, however, call them errors. For 
example : 

DIMENSION X(10), Y(20) 
EQUIVALENCE (X,A,B), (Y,C,G) 
DIMENSION A(10), B(10), C(20), G(20) 

is permitted. The variables A : ,B,C,G in the second 
DIMENSION statement are ignored by the compiler, because 
they have already been defined in the preceding EQUIVALENCE 
Statement . 

7. It is possible to equivalence items not of the same type 
or mode: e.g. EQUIVALENCE (A, I) - where A is real and 
I Is integer. 



TYPE 

Two TYPE declarations are permitted. These statements 
determine the type of variable associated with each variable 
name appearing in the statement. This TYPE declaration is in 
effect throughout the program. The two declarations are 

INTEGER a,b,c, . . . . 
REAL a,b,c, 

where a,b,c, are variable names appearing within the program. 
Function names may not appear in TYPE declarations. 

Rules : - 

(1) A variable defined to be of a given type remains of 
that type throughout the program. 

(2) INTEGER indicates that the variables listed are integer, 
and over-rides the alphabetic naming convention. 

(3) REAL indicates that the variables listed are floating 
point, and over-rides the alphabetic naming convention. 
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The TYPE declaration must occur before the first 
executable statement of the program. If any of the variables 
mentioned in a TYPE declaration are mentioned in a COMMON or 
DIMENSION statement, the TYPE declaration must follow such 
mention. 

If a TYPE declaration precedes an EQUIVALENCE 
statement, then it defines a variable in the sense required 
by the EQUIVALENCE statement, and all variables equivalenced 
to the one declared in the TYPE statement will be of the same 
type. 

If a TYPE declaration follows an EQUIVALENCE statement , 
then only the specific variable names mentioned in the 
declaration will be affected. 

Examples, 

1. INTEGER A 
EQUIVALENCE (A,B,C) 

2. EQUIVALENCE (A,B,C) 
INTEGER A 

3. EQUIVALENCE (A,B,C) 
INTEGER A,B,C 

4. INTEGER A,B,C 
EQUIVALENCE (A,B,C) 

Examples 1 and 3 cause A,B,C, to be integer variables and 
occupy the same memory location. 

Example 2 causes A to be integer, B,C to be real, and 
A,B,C to occupy the same memory location. 

Example 4 is an error in KINGSTON FORTRAN (see para. 5 under 
EQUIVALENCE). 
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1. 

KINGSTON FORTRAN II 



OPERATING CONCEPTS 



KINGSTON FORTRAN has Incorporated in It the ability 
to recognize certain control cards both at compile and object 
time. The control cards recognized by the compiler are, with 
one exception, instructions to the compiler to execute various 
options such as symbol table output, compile with or without 
trace, etc. A list of these and their functions appears later. 
The control cards recognized by the object program are intended 
to help in the operation of programs involving blocks of data 
and to permit continuous flow of programs through the machine 
with a minimum of operator intervention. The system will 
allow stacking of programs in the read hopper and execution 
of these programs, in the order they are presented to the 
machine, without requiring button pushing at each program 
load . 

COMPILER OPERATION 

The compiler deck is self-loading and self- 
identifying. To load the compiler, push RESET, LOAD. The 
switch settings are: 

Parity - STOP 

I/O - Program 

Sense Switches - not used. Position Immaterial. 



Because the 1620 typewriter is prone to write-checks, any 
errors in its operation are completely ignored. Card I/O 
read- and write-checks are handled by programming. 

The source deck is assembled with the main-line 
program accompanied by all subprograms in source lang uage . 
The main-line and subprograms may be in any order 7 Because 
the compiler is one pass, and to avoid the complications 
of subprogram object loaders, the entire deck is compiled 
at one time. The job size must be such that the main 
program and all its subprograms can be accommodated in 
core at one time. That is, no overlay of subprograms by 
other subprograms is permitted. This restriction also 
exists in IBM 1620 FORTRAN II. 

The end of the mainline program and of each 
subprogram must be indicated by an END statement. Thus a 
program may contain more than one END statement. A 
special control card is used to indicate the end of the 
entire job; a Job, in this context, means the set of 
main-line program and all required subprograms. 
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The following section gives the compiler control 
cards and their function. All control cards must have a 

*, or 4 symbol in column 1, and the identifying word 
in cols. 7 and following. 



BEGIN TRACE 

Form : Col 1 - $,*, or + 

Col 7 - BEGIN TRACE 

Location in Deck: anywhere 

Function : Trace instructions are compiled, 
beginning with the next arithmetic 
statement. Tracing generates no 
additional instructions. 

END TRACE 

Form : Col 1 - * , or 4= 

Col 7 - END TRACE 

Location in Deck: anywhere 

Function : If trace instructions Were being compiled, 
this card stops compilation of trace 
instructions. If trace instructions were 
not being compiled, this card has no 
effect. 



Col 1 - *, or 4= 
Col 7 - LIST 

Location in Deck : anywhere 

Function: The typewriter starts typing the object 
time location of the first machine 
language Instruction of each source 
statement. The source statement Itself 
is not typed. The typed locations can 
be matched with a 407 off-line listing 
of the source program, if desired. 



LIST 

Form: 



e><£ 
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UNLIST 

Form: Col 1 - Jf, *, or + 

Col 7 - UNLIST 

Location in Deck: anywhere 

Function: If the typewriter had previously been 
typing locations as a result of a 
LIST card, the UNLIST card 3tops it. 
Otherwise, the UNLIST card has no 
effect. 

MAP 

Form: Col 1 - *, or 4 

Col 7 - MAP 

Location in deck: anywhere before any END 
statement. 

The symbol table for the main program 
or subprogram (depending on which END 
statement is currently being processed) 
is punched on cards when the END 
statement is encountered, provided a 
MAP card occurred previously in that 
section of the Job. A separate MAP 
card is required for each section of the 
Job for which a symbol table is wanted . 



Col 1 - », or + 
Col 7-9 - JOB 

Col 10-79- any valid information 

Location in deck: The JOB card must be the first 
card of any source deck. 

Function: The JOB card informs the compiler that 
what follows is a FORTRAN source 
program. The compiler will not recognize 
a source program until a JOB card is 
found, and will read cards indefinitely 
until it finds one. The JOB card is 
reproduced (from column 7 onwards) into 
the object deck so that the object deck 
is self-identifying when it is loaded. 



Function: 



JOB 

Form: 
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END OF JOB 

Form: Col 1 - *, or + 

Col 7 - EOJ 

Location in Deck: The EOJ card must be the last 

card of any source deck, i.e. must be 
the last card of the job. It is in 
fact, the super END card. 

Function: The EOJ card informs the compiler that 
the end of the source deck has been 
reached. The machine will stop, 
allowing removal of the object deck. 
Pressing start will cause the compiler 
to read cards searching for a JOB card 
or a LOAD card ( q . v . ) . 

LOAD 

Form: Col 1 - *, or ={= 

Col 7 - LOAD 

Location in Deck: following the last EOJ card of 
the last source deck. 

Function: Because this is a batch compiler, a 
control card is needed to inform the 
compiler that what follows is not a 
source deck, but rather a new program 
to be loaded. When the compiler finds 
a LOAD card, it executes a 1620 load 
operation on the card Immediately 
following, on the assumption that it 
is the first card of a self-loading 
program. If it is not, you will be in 
trouble . 

PRESCAN 

Form: <3ol 1 - f, *, or }= 

Col 7 - PRESCAN 

Location in Deck: anywhere 

Function: Inhibits punching of object deck. 

Error cards are punched if errors are 
found . A PRESCAN card may be used in 
place of a JOB card. 
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SIZE 

Form: Col 1 - Jf, *, or + 

Col 7 - SIZE NNMN9 

Location in Deck: Immediately following JOB card, 
i.e. 2nd card of source deck. 

Function: The SIZE card specifies the highest 

numbered core location which the object 
program is to occupy. NNNN are any 4 
digits, but for instance would usually 
be 1999 if compiling for a 20K machine 
on a HOK machine. It, however, can be 
any 4 digits whatsoever. If the 
assignment of this highest memory 
location is such that the job will not 
fit, an overlap message will result. 

QRIGIM 

Form: Col 1 - f, * , or 4 

Col 7 - ORIGIN NNNNN 



Location in Deck: Immediately follows SIZE card 
if one exists. Otherwise it follows 
the JOB card . 

Function: The ORIGIN card specifies the core 
location in which the first machine 
language instruction of the compiled 
program will be placed . NNNNN must 
be an even number . If not, you will 
have difficulties. By suitable 
choice of SIZE and ORIGIN, the object 
program can be put almost anywhere in 
core. In fact, it is possible to 
specify so little core for the object 
program that no source program whatsoever 
will fit in it. 



If the origin is not specified by an 
ORIGIN card, the object program will 
start at location 5900. This is not 
quite as good as it looks, because, as 
is common with many computing systems, 
you may need extra bits and pieces to 
make things work. See the section on 
subroutines . 
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SUMMARY 



To compile a program, load the compiler followed 
by the source deck. The source deck order is: 

JOB card 

Main-line program with END card)these may be 
Subprogram (s ) with END card(s) )ln any order 
EOJ card . 

If another source deck is to be compiled, make it 
up in the same way, and stack up in the reader 
hopper. If the next thing to be done is a self- 
loading program, precede it with a ^LOAD card. 



Symbol Table 

If a MAP card occurred in the source deck, a 
symbol table will have been punched . Because a separate 
symbol table may be punched for the main program and each 
subprogram, it is not possible to avoid interspersing the 
object deck and the symbol table. For this reason, the 
symbol table cards are identified by a particular code 
on the card. The 407-E8 wiring diagram in this, write-up 
will detect which are symbol table cards and print only 
those, ignoring object program cards. The symbol table 
is punched k symbols per card. 

Whether or not a symbol table is punched, the 
compiler punches 1 blank card following completion of the 
job. This allows removal of the object deck without 
using the non-process runout feature on the 1622. The 
next deck to be punched will be preceded by the blank 
card, which must be discarded. 

Error Checking 

The KINGSTON FORTRAN compiler has built in provision 
for checking errors in the source program. Because of the 
expansions in the language, certain statements which are 
unacceptable to a normal FORTRAN compiler will, of- course, 
be accepted by the KINGSTON FORTRAN compiler. 

All errors will be punched on cards suitable for 
koj listing using the panel described in this write-up. 
The 407 will ignore any object program cards in the deck. 
The error card will contain an error code followed by the 
line number in which it occurred . The errors and their 
codes are described in Table 1. 
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TABLE I 
ERRORS AT COMPILE TIME 

Error Reason 

Ql Character after Format not ( 

Q2 No EOJ card 

Q3 Continued Error 

Q4 Argument List in Subroutine or Function Declaration 

not a simple variable. 
Q5 Unpaired Parentheses. 
Q6 No statement number in Format . 
Q7 Unrecognizable. 

Q8 Statement exceeds 300 characters . 

Q9 Doubly defined St. No. 

PI Incorrect Go To Statement. 

P2 Invalid Assign Statement. 

P? Invalid If Statement. 

?k Invalid Computed Go To Statement. 

P5 EOJ Card not preceded by an End Card. 

P6 Expression in Subr. 

P7 Invalid Call . 

WA Illegal Operator in Expression is £ or Q. 
WB Illegal sequence of operators. 
WC Mode Error. 

WD OP-VAR-OP Sequence Illegal; Syntax error in 

Statement . 
WE ) not followed by an operator. 
WF Invalid operator in subscripting. 
WH Number of subscripts does not agree with DIMENSION 

Statement. 
WG Floating Subscript. 

WJ Expression Ends in Illegal Character. 
WS Invalid expression on left-hand side of Arithmetic 
Statement . 

WP Invalid expression on right-hand side of Arithmetic 
Statement . 

WT One of the tables used in compiling Arithmetic is 

full; i.e. Statement is too long. 
WK Syntax error in Arithmetic expression. 
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Table I (cont'd) 
Error Reason 



Rl Incomplete DO or I/O Statement. 

R2 Expression in Input List. 

R3 Unpaired () in Assigned Format No. 

Invalid Delimiter in I/O Statement. 

Invalid Use of () in I/O Statement. 

Fl Format too verbose for simple minded compiler or, 
( before completion of repeating format. 

F2 Most likely, invalid format, DO, I/O, or Arithmetic 
Statement. If Format, can be.- - sign that is not 
part of P-Type, incorrect specification of length 
of H type; no closing ); statement not complete; 
non permissible character. 

FJ More than 5 levels of repeating format 

Repeated Power Format has more than 49 repeats 

Field Width is missing in I, A, F, E, Specs 

A -Width greater than 50 

D missing in EW.D or FW.D 

Decimal missing in EW.D or FW.D 

Non-permissible character. 

D greater than W in EW.D or FW.D 

(W-D) greater than ^5 

Field Width greater than 80. 

A -Type has zero field width. 

ER99 Symbol is more than 6 characters. 

ER98 Fixed point number has too many digits. 

ER97 Floating point number too big. 

ER96 Floating point number too small. 

ER95 Symbol table full. 

ER94 Symbol which should be a function is not. 

EBy3 Simple variable in Dimension Statement. 

ER92 Dimension IMAX not followed by ) or , 

ER91 Missing ) on Dimension Variable. 

ER90 No , between Dimension or Common items. 

ER89 Unidentified Card. 

ER88 First item in Equiv List not in Table. 

ER87 Missing or , in Equivalence. 

ER86 Number in Equiv Statement. 

ER85 Variable Dimensioned Twice. 

ER84 Arith'. St. Func . Defined Twice. 

62 



© 



9. 



OBJECT PROGRAM OPERATION 

1 . Introduction 

The permanent subroutines package contains 
routines which facilitate the handling of multi-part 
programs and the handling of multiple data sets for 
the same program. The 'routines also have the ability 
to recognize certain control cards as described below. 
This is not by any means a resident monitor, but it 
uses some of the simpler concepts involved in monitor 
systems. 

An object program will operate perfectly satis- 
factorily without referring to the resident supervisor 
program. If this kind of operation is desired, then 
the running of the object program is the same as for 
any other card 1620 FORTRAN. Load the object program, 
followed by the subroutine deck, followed by the data, 
and pray. 



2. Error Messages at Object Time 

No method really satisfactory to all people can 
be devised for handling errors at object time. Some 
people want every error, however trivial, brought to 
their attention every time it happens, either by type- 
writer message or by stopping the machine. Others say 
that any error should result in passing control to the 
monitor and delivering to the programmer a core dump 
(preferably in binary) together with a cryptic Indication 
as to the possible source of his trouble. Still others 
assert that no errors should be detected at all, that 
the machine should run merrily on and that it is up to 
the programmer to figure out post facto why his answers 
are out by a factor of 10 35 . 

The position taken in KINGSTON FORTRAN is that a 
40K 1620 is a little too expensive to permit unbridled 
chattering by the typewriter, but is still cheap enough 
to permit some stopping during the course of debugging 
a program. 

Object time errors are collected in an 18 digit 
error field located in the permanent subroutines. Digits 
are inserted in this field to indicate various kinds of 
errors, and system CALL statements have been included 
to allow interrogation, typing, and resetting of this 
error field . 

Most errors do not result in stopping the machine, 
and the error is not communicated when it occurs. 
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The error field is also typed out when a PAUSE, 
STOP or END statement is encountered . The error codes 
are given in Table 2. If a check digit is zero, the 
error in question did not occur. 



The systems CALL statements for Interrogating 
and using the error field, follow: 

CALL EPRT 

If the error field contains one or more non-zero digits 
(i.e. at least one error has occurred) the typewriter 
types the 18 digit field followed by CHECK. If the 
error field was zero throughout, only the word CHECK 
is printed. The error field is not reset to zero by 
CALL EPRT. Control is passed to the next executable 
statement of the program. 

CALL RESET 

The error field is reset to zero. It is not typed 
out. Control is passed to the next executable statement 
of the program. 

CALL ERRCK(J) 

The error field is interrogated . If it is non- 
zero (at least one error has occurred) the integer 
variable J is set equal to 1. If no errors have 
occurred, J is set equal to 2. The error field is 
printed out (if non-zero) and reset to zero. Control is 
passed to the next executable statement of the program. 

The error field is also typed out by certain 
supervisor control cards, as described in the next 
section. 



THE SUPERVISOR 

The resident supervisor can recognize 3 kinds of 
control cards. One of these signals that the following 
card is the first card of a new job and that a load 
operation is called for. The other two are used to 
delineate blocks and files of data for a given program. 

New Program Card 

Form : Col 1 

Col 2-80 any alpha numeric information 

Location: first card of an object program deck. 
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Function-. .. This card informs the object program 

that a new job is waiting to be loaded. 
If the current object program reads such 
a card under the misapprehension that it 
is a data card, the words END OP DATA are 
typed followed by the word CHECK and the 
error field (if non-zero). The typewriter 
then types out the contents of the card, 
and the computer simulates the load 
operation to read in the next job. 



End of Block 

Form i Col 1,2 - 

Col ?-80- any alphanumeric information. 

Location: At the end of a block of data. 

Function: When a card containing ftp is read under 

control of a READ statement, the End of 
Block Indicator is turned on, and the 
typewriter types the contents of the 
Bnd of Block card, followed by the word 
CHECK and the error field. (if non-zero). 
Control is then transferred to the first 
executable statement of the program. 

The End of Block Indicator may be 
interrogated by calling the End of File 
or Block subprogram. See below. (The 
End of Block Indicator is a program switch, 
not a hardware feature). 

End of File 

Form: Col 1,2,3 fty 

Col 4-80 any alphanumeric information 

Location : at the end of a set of blocks of data 

Function: When a card containing fffl is read under 

control of a READ statement, the End of 
File Indicator is turned on, and the 
typewriter types the contents of the End 
of File card, followed by the word CHECK 
and the error field ( if non-zero ) . Control 
is then transferred to the first executable 
statement of the program. 

The End of File Indicator may be inter- 
rogated by calling the End of File or 
Block Subprogram. See below. (The End of 
File Indicator is a program switch, not a 
hardware feature). 
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The End of File or Block Subroutine Subprogram 
(which is built into the system) may be used to 
interrogate the End of File and End of Block 
Switches . 

CALL EOFB(J) 

The End of File and End of Block indicators are 
interrogated . 

If the End of File Indicator is on, J is set equal 
to 1. 

If the End of Block Indicator is on, J is set equal 
to 2. If neither is on, J is set equal to 3. Both 
indicators are set to the OFF position after inter- 
rogation. Control is transferred to the next 
executable statement of the program. 

In a job which is processing data in batches, it 
is convenient to have some way of telling the computer 
where the end of a data set is, and also to tell the 
machine which is the last set of such data. 

The end of a set of data is called a "block" in 
our nomenclature. It may be of variable number of data 
points (as in many statistical problems), but at least it 
is the amount of data which is appropriate for the whole 
job or for a section of it. 

Many jobs are set up to process several blocks of 
data in more or less the same way for each block. It is 
useful, however, to identify the end of the last block so 
that the program is informed that no more data exist. The 
End of File Indicator accomplishes this. In our nomen- 
clature, a "file" is a set of one or more "blocks" of data. 

Since reading an End of Block or End of File card 
returns control to the first executable statement of the 
program, it, is suggested that this first statement should 
be 

CALL EOFB(J) 

followed at a suitable place by a computed GO TO using J 
as its index. 



Two other system subroutine call statements are 
provided in KINGSTON FORTRAN: 



CALL EXIT 
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When this subroutine call is encountered the object 
program is stopped and control is passed to the 
supervisor. The machine will read cards until it finds 
a new Job card. When this is found, the number of cards 
read before finding the new program card is typed out as 
BYPASS N where N is the number of cards. The error check 
field is typed and the new program card is handled in the 
normal way. 

CALL SKIP 

This subroutine call causes interruption of the 
normal program. The machine will read cards until the 
next end -of -block or end -of -file (ffl or $if^) card is 
encountered, at which time control is transferred to the 
first statement of the program. If a new job card is 
encountered before at $f or fffl card, a normal exit to 
new program will result. In any case, the check field is 
typed, together with BYPASS N as explained above under 
CALL EXIT. 

CALL SKIP will usually be employed to stop 
calculation on a block of data because of an abnormal 
situation (e.g. failure to converge on an iteration, 
bad data) which has occurred in the block of data. 
In such a case, CALL SKIP will cause that particular 
calculation to be abandoned, and a new set of data to be 
presented to the program. 

CALL EXIT and CALL SKIP may also result from 
certain object time error conditions. See Table 2. 

Certain input-output errors are also detected 
at object time. If one of these is encountered, the 
typewriter will type the words I/O ERROR, followed by a 
digit. A list of these errors is shown in Table III. 
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TABLE 2 
Object Time Errors 



Position 
in Error 

Field Digit Meaning Action Taken (FAC = Accumulator = Result Field) 

1st digit 1 Floating Point Underflow FAC = 0000000000 

2nd 2 Floating Point Overflow FAC = ±9999999999 

3rd 3 Floating Point Divide by 

Zero FAC = ±9999999999 

kth k Fixed Point Divide by Zero FAC is unchanged, i.e. J/0 = J 

5th 5 Square Root of Neg. Number Square root of absolute value of arg. 

6th 6 Log of zero or Neg. Number Log(0) s -9999999999; otherwise log of abs . value 

^ of arg. 
Oo 

7th 7 Sin or cos, arg. > 10 s CALL EXIT 

8th 8 Exp(x) out of range FAC = ±9999999999 

9th 9 Input number too small The number entered memory as 0000000000 

10th 1 Input number too big The number entered memory as ±9999999999 

11th 2 "\ 

12 3 / 

13 * I 

14 5 ( Unused. Available for 

15 6 user-defined relocatable 

16 7 subprograms . 

17 8 

18 9 J 



TABLE 3 



I/O Errors at Object Time 



1/0 
Error 



Reason 



Result 
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IF 



2F 
3F 

READ 
READ 
READ 



Input record from T/W or paper tape over 120 characters long CALL EXIT 

Non-alphabetic data on A -type output CALL EXIT 

Field Width too small on I, E, F, output CALL SKIP 

Invalid character on Input data on I, E, F, or N Format CALL SKIP 

Read in integer with E, F, or N Format and has lost right-hand end digits CALL SKIP 

Input-Output list with no numeric specifications between last opening- 
closing parenthesis pair in Format statement CALL EXIT 

Format requires more than 120 characters In a record CALL EXIT 

Write-check occurred 3 times when attempting to punch output or trace 

card CALL EXIT 

Error In Variable Format - similar to error Fl at compile time CALL SKIP 

Ditto - similar to error F2 at compile time CALL SKIP 

CALL SKIP 



Ditto - similar to error F3 at compile time 



Read check on T/W 
" " " paper 
ti n n car( j S 



tape 



Computer halts. 
When start is 
pressed, the 
machine will 
attempt to read 
the record again 
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MEMORY ALLOCATION AT OBJECT TIME 

All constants and variables are stored in 10 digit 
words. The address of the low order digit ends always in 9. 
Hence the address of the high order digit ends in 0. 



SIMPLE VARIABLES 

Real Variables - 10 digits, low order digit address ends 
— in 9- 

Integer Variables - 4 digits, low order digit address ends in 
9. 

Real Constants - same as real variables. 

Integer Constants - In the rare cases that fixed point 

constants are stored in the object program, 
both the negative and positive value of 
the constant are stored . The positive 
value occupies the low order 4 digits of 
the 10 digit word; the negative value has 
its low-order digit address ending in 4. 
The other 2 cores are unused. 

address 
e.g. 0123456789 

0567805678 

This illustrates storage of 5678 

A -Format Words - are stored in a 10 digit field, the low 
order address of which ends in 9. The 
digit at the high order address (ending 
in 0) is flagged. 

ARRAYS 

Vectors - one -dimensional arrays. 

Vectors are stored starting with the first 
element at the highest numbered address, 
and with succeeding elements at 
progressively lower numbered addresses . 
That is, the vector dimensioned A (10) 
would be stored A(l ) ,A(2) ,A (3) ,— A (10 ) 
at successively lower memory locations. 
The address of element A (I) may be 
calculated from: 

Address of A(I) = Address of A(0)-10*I 

where the address of A(0) is called the 

base address of A. 

Note that A(0) = A(l) + 10 

Zero and negative subscripts will perform 

properly on a vector provided space is 

available. 
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Matrices - two dimensional arrays. Matrices are 

stored starting with the first element, 
B(l,l), stored at the highest numbered 
address. The elements are stored column- 
wise at progressively lower numbered 
addresses: B( 1, 1 ) ,B(2,1 ) ,B{3, 1 ) etc. 
The address of B)I,J) may be calculated 
from: 

Address of B(I,J) = Address of B(0,0)-10 
(J*IMAX+I) 

where the address of B(0,0) is called the 
base of B. IMAX is the maximum number of 
rows in B as specified in the DIMENSION 
statement . 

Note that: 

The address of B(0,0)=address of B(l,l)+10 
(IMAX+1) 

Negative or zero subscripts on a matrix 
will work properly on the second subscript, 
but not on the first subscript. For 
instance, if B is dimensioned B(3,3), then 
B(3,l) and B(0,2) will be in the same 
memory location, a condition which may be 
undesirable. However, B(2,0) will be 
stored in the second item before B(l,l). 

An example of a memory layout may help. 
Suppose the program has the following 
COMMON statement: 

COMMON X, A(4), B(2,3) 

The layout of memory is : 



Variable 

A(3) 
A(M 

B(l,l) 
13(2,1) 
B(l,2) 
B(2,2) 
B(l,3) 
B(2,3) 



Memory Location 
(low or der d igit) 
39999 (Base of A) 
89 

79 (Base of B) 
69 
59 
49 
39 
27 
19 
09 
39899 
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STATEMENT NUMBERS 

The address of the statement is stored in a 5 digit 
field, which is -referred to indirectly. Two such 5 digit 
fields are contained in a 10 digit word, whose low order 
address ends in 9. 



SUBPROGRAM ADDRESSES 

FORTRAN subprograms or arithmetic statement functions 
require two 5 digit addresses for their entry points. These 
are stored in a 10 digit word whose low order address ends in 
9. 



TEMPORARY ACCUMULATORS 

(1) 10-diglt accumulators may be required during the 
evaluation of an arithmetic expression. These are 
treated exactly like storage for simple variables. 

(2) 5-digit accumulators are used in subscripting calculations, 
Two of these are stored per 10 digit word. 
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THE SUBROUTINE DECK 



No provision is made for reproducing the subroutine 
deck into the object program. It is the opinion of the 
writers of KINGSTON FORTRAN II .that the l620 should not be 
used to reproduce subroutine decks indiscriminately. For 
that reason it is required that the subroutine deck be 
placed behind the object deck when loading. If a condensed 
program is desired, use a suitable core-dump-and -reload 
program . 

The subroutine deck consists of 3 parts, which are, 
in order: (a) the relocator,. which handles the loading of 
the relocatable subprogram (as requested by the object 
program) into core storage; (b) the relocatable subprograms 
which consist of the library function subprograms ( sin, 
cos, exp, etc.), parts of the input-output subroutines and 
any subroutine subprograms which the user may wish to 
write; (c) the permanent subroutines containing the 
programmed floating-point arithmetic routines, the fixed 
point routines, the supervisor, the trace routine, and a 
hard cord of the input-output routines. 

These three sections are essentially independent. 
The relocator is a completely separate program which uses 
information contributed by the object deck (memory size, 
subprograms desired, where empty space is available for those 
subprograms, etc.) to select and load into core storage the 
relocatable subprograms needed for the Job. 

In a small machine, like the 1620, it is essential 
to conserve memory space. For this reason, the input- 
output routines have been broken up into pieces, and are 
treated like any other relocatable routines. For instance, 
if the object program does not use A-specif ication, the 
routine to handle this will not be loaded into core. 
Thus, only the input-output routines needed by the object 
program will be loaded. 

The question arises, how far should this be 
carried. About 2000 cores of input-output routine are 
used by all other input-output routines, and these are 
part of the permanent subroutines package. The routines 
for exponentiation, floating and integer, and for integer 
division were made relocatable. All others are part of 
the permanent package. Some consideration was given to 
making the trace routine (300 cores) relocatable. This 
was rejected on the grounds that any program which fits 
into the machine should also be traceable. The only way 
this can be assured is to have the trace routine 
permanently in place. 
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The permanent subroutines are a self-contained deck 
independent of the relocator. This deck is so programmed 
that after loading, control is transferred to the core 
location containing the first machine language instruction 
of the object program. 

A list of the relocatable subprograms is given in 
Table II. 

RELOCATABLE SUBPROGRAMS 

User-defined -relocatable-subprograms (abbreviated 
UDRS) may be of several types, depending on the coding 
generated by the compiler when the subprogram name is 
encountered in a FORTRAN source statement. The generated 
coding is controlled by the makeup of cards placed at the 
end of the compiler deck. These trailer cards inform the 
compiler what subprograms are available and also supply 
auxiliary information about them. 

Each entry on a trailer card consists of a two digit 
subprogram number, followed by the subprogram name (six 
characters maximum) followed by a 5 digit cede number 
enclosed in parentheses. A typical entry has the form: 

NNXJCXXX)((n 1 nan3 ) 

where NN is a two digit number unflagged). 

XXXXXX is a 1 to 6 character name 

nin*n 3 is a 3 digit code which describes the subprogram 
properties to the compiler 

is any two digit number between 01 and 66. 

is any name beginning with a letter. It does not 
have to end in P and its starting letter is 
independent of the function mode; e.g. integer 
functions do not have to begin with I, J, K, L, 
M, or N. 

is made up as follows: nj.na form a two digit number 
controlling the coding generated by the compiler; 
n 3 describes the function properties. Table I 
describes this. 

is a location in a subprogram transfer vector 
located in the permanent subroutines. This vector 
contains the relocated address of the subprogram, 
as explained below. 



NN 

XXXXXX 



nj.n2n3 

SVECT 



7V 
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TABLE I 



Digits 
ning 



Coding 
Generated 



Use and Notes 



10 



20 



25 
50 

35 



TF B#FAC,ARG 
BTM -SVECT, *+ 12 



BT 
BT 



BT 



BT 



TF 
BT 



BT 
BT 



BTM 
BTM 



-SVECT, ARG V 
-SVECT, ARG^ 



-SVECT, ARG1 



-SVECT, ARG 

B#FAC, ARG^ 
-SVECT, ARG k _ i 

-SVECT, ARGs 
-SVECT, ARGi 



BTM -SVECT, ARGk 



-SVECT, ARG X 
-SVECT+5,»+12 



Single arg. UDRS which may inter- 
nally branch and transmit 

Mul ti -argument , single entry UDRS. 
If one of the arguments is already 
in B£FAC when the UDRS is called, 
it will not be transmitted by a 
BT -SVECT , ARG . If one of the 
arguments is not already in B#FAC, 
then ARG k is placed in B^fFAC and 
ARG k to ARGx are transmitted 
through SVECT. This type of 
entry is designed for functions 
like MAX and MIN. 

Single argument UDRS which may not 
internally branch and transmit 

Similar to nin2=20 above, where 
ARG k is forced into B^fFAC 



A UDRS which may have any number 
of arguments (including no 
arguments at all) and which may 
branch and transmit internally, 
and which does not have any of its 
arguments in B^FAC when entered . 
This entry is required if the UDRS 
is to be used as a subroutine sub- 
program. 



If n x is flagged, the UDRS is expected to produce a floating 
point result. If n x is not flagged, the UDRS is expected to 
produce an integer result. 

n 3 can have 3 possible values: 

6 denotes an even function, i.e. f(x)=f(-x); used only 

for single arg. functions 
1 denotes an odd function, i.e. f(x)=-f(-x); used only 

for single arg. functions. 
denotes a function which is neither odd nor even. 



22. 



If In doubt, set n 3 =0, which will never cause 
trouble. (Certain economies at object time are possible 
if the compiler knows whether the function is odd or even). 



A UDRS may fte used as an arithmetic function or 
as a subroutine subprogram. If a UDRS is called as the 
result of the appearance of its name in FORTRAN arithmetic 
statement or expression, it will be compiled as if it were 
a function; that is, it must have a single number for a 
result, and this result must be left in BjJFAC on exit from 
the UDRS . 

However, if the UDRS is used as a subroutine 
subprogram it3 name must appear in a FORTRAN CALL statement. 
In this case, more than one result can be generated, and 
these are transmitted back to the calling program by the 
foraal parameter list or through COMMON storage. The only 
permissible nina for this case is 35. 

The same subprogram may be given several names. 
All that is necessary is to construct several entries in 
the trailer card using the same subprogram number and code 
digits, but different names. Entries on the trailer cards 
must be packed with no blanks. After the last entry on 
each card, a single record mark (0-2-8) is placed. After 
the last entry on the la3t trailer card, two record marks 
are placed . 

For example, a trailer card might look like: 

05BLAP ( 100 )05BLAPF ( 100 ) 10GURK( 200 ) l8A ( 15l ) 10RUNCH( 200 ) 
10FLAPF(200)f 

The code digits have been described above. 
Subprogram 05 is known by the names BLAP and BLAPF, 
subprogram 10 by GURK,RUNCH and FLAPF, and subprogram 18 as 
A. 

As many trailer cards as necessary are constructed 
and placed after the compiler deck. They should be inserted 
between the second and third card from the end. The last 
two cards contain the names of the system relocatables; the 
last card contains two record marks at the end of its 
entries (see above). 

PROGRAMMING RELOCATABLE SUBPROGRAMS 

UDRS are to be coded and assembled using either 
IBM 1620/1710 SPS II or AFIT SPS. To aid in understanding 
the process of adding subprograms, a short description of 
the subprogram relocator behaviour follows. 
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The relocator will relocate all addresses of 80000 
or more. Thus subprograms are preceded with a DORG 80000 
instruction. Any address below 80000 will not be relocated . 
The relocator assumes that all instructions are to be 
relocated; however a constant (defined by DC, DSC, DAC ) or 
a DSA will be relocated only if its location is at or above 
80000. Furthermore, the constant assembled from a DSA will 
have both its value and its location relocated if they 
lie at or above 80000 and provided also that it occurs 
before the first executable instruction of the subprogram. 
This will become clearer later. 

The compiler constructs entry commands to the 
subprogram as described previously. Note that the user 
can force compilation of instructions (in the object 
program) which culminate with BTM -SVECT,*+12. Since in 
this case, the UDRS has a real 5-digit return address 
stored away and control is passed back to the main program 
by branching indirectly to this 5 digit address. This 
allows the user to employ BT and BTM Instructions in his 
own subprogram. This feature permits direct access to all 
the floating arithmetic routines and also to other 
relocatable su bprogr ams. It is also possible for~a UDRS to 
call other relocatables, even though the FORTRAN source 
program does not require them direcTly^ 

Linkage to the relocated subprogram is provided 
by a transfer vector located in the permanent subroutine 
package. It is defined by a DSB in the permanent package 
source deck, a copy of which is included with the systems 
decks. There is thus no reason for the user to concern 
himself with absolute addresses, since each UDRS will be 
compiled with the aid of the permanent subroutines source 
deck . 

The user must specify certain information, in 
SPS, before the coding of his UDRS. This information 
becomes the header cards used by the relocator to select 
and relocate the subprogram properly. 

For functions entered by BT -SVECT, ARG, the 
coding must look like 

DORG 

DC 
DC 
DC 
DC 



DORG 
DSA 



DORG 
DS 





2,NN 
2,11 
2,JJ 
2,KK 



B#SVECT-9+5*NN 

START, 99999, NXX -80001 



80000 



10 



77 



f 
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START function coding 



NXX DAS 1 

DEND 



The list of DC's at the beginning define the subprogram 
nuaber NN, followed by the numbers II, JJ, KK, etc. of the 
relocatable subprograms required by this subprogram. These 
constants must be preceded by a DORG (zero); the 
relocator identifies them as subprogram numbers by this 
fact. A subprogram may call a limit of 29 other subprograms, 
i.e. there may be a maximum of 30 DCs in this list. 

The next item is a DORG to the proper place in the 
transfer vector BJfSVECT, followed by a DSA list. The first 
item in this list is the address of the first executed 
instruction of the subprogram. The next Item in the DSA 
list must be 99999. The next item is constructed such that 
it will assemble to a 5 digit number which is the size of 
the subprogram. Note that NXX (or other suitable label) is 
a DAS 1 which must appear Just before the DEND statement of 
the subprogram. Obviously Nxx!-8000i will be an even number 
and will be the number of digits occupied by the subprogram. 
The relocator assumes that the DSA immediately following 
a DSA 99999 is the subroutine size. 

The coding of the subprogram itself is preceded 
by DORG 80000. 

In the case of multiple argument subprograms, two 
entries in the transfer vector are necessary. The subprogram 
arguments are transmitted through vector location 
BjfSVECT +5*KM, where NN is the subprogram number; the 
return address is transmitted through B^SVECT- 9-»-5*NN. 
The programmer must provide coding to handle the arguments 
and return address as they are transmitted . For such a 
subprogram, two DSA>s for transfer vector entries must be 
programmed. For example, 



DORG 

DC 2, MM 

DORG B^SVECT- 9 +5*MM 

DSA START, SOAK, 99999, NY-80001 

DORG 80000 



SOAK - 
START - 

NY DAS 1 
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In such a case, SOAK Is the entry for coding to 
handle argument addresses, and START is the beginning of the 
multl -argument subprogram. 

MM Is the 2-dlglt subprogram number. Note that 
the two entries In the transfer vector must be contiguous, 
and that the first one may not be used for any other 
subprogram. Thus, If MM is the number of this subprogram, 
MM+1 may not be used as the number of any other subprogram, 
since the transfer vector location which It needs has 
already been used by multiple argument subprogram MM. 

For example, let us program a subprogram to 
calculate the hyperbolic sine of a floating point argument, 
by the well known formula 

SINH(X) ='J(e x - e _x ) 

To do this we will need the exponential routine, subprogram 
number 69 and we will use the floating subtract and multiply 
routines . 

HEAD K 

HYPERBOLIC SINE OF X, SUBPROGRAM NO. 12 
DORG 
DC 2,12 
DC 2,69 

DORG B#SVECT-9+5*12. 

DSA SINH, 99999, N12-80001 

DORG 80000 

DS 5 

SINH TF BIN2,B#FAC 

BT B#SVECT-5+5*69,B#FAC,6 

TF BIN1 ,B#FAC 

TF B#FAC,BIN2 

BT B#RVSGN,B#RVSGN-1 

BT B#SVECT-5+5*69,B#FAC,6 

BT B#FSBR,BIN2 

BT B#FMP,FLHAF 

B SINH-1,,6 

DORG *-3 

FLHAF DC 10,5050000000 

BIN1 DS 10 

BIN2 DS 10 

N12 DAS 1 

DEND 
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Several points should be noted 

(1) This Is an example only. Much better methods for 
SINH(OC) exist. 

(2) A UDRS must be headed. DO NOT USE HEADING CHARACTERS B 
NOR S. These are already used in the permanent 
subprograms . 

(3) The first DC defines this subprogram as number 12. 
The second DS causes the relocator to load in 
subprogram number 69, the exponential routine (see 
Table II for a list of systems relocatables ) . 

(k) The next DORG and DSA define the transfer vector entry 
and the subprogram length. 

(5) Since this subprogram calls other subprograms, it 
will be entered by having the argument in B^fFAC, and 
the compiler will, generate BTM B#SVECT-5+5*i2, *+12,6. 
The compiler trailer card entry would be: 

12SINH(IO0) 

(6) The coding for the subprogram follows directly. The 
first instruction saves the argument x, the second 
calculates e x , the third instruction stores this 
result away. We then reverse sign of x in the next 
two instructions, and calculate e- x . 

The two exponentials are then subtracted, and multiplied 
by 0.5. The result remains in BJfFAC, and the subprogram 
branches indirectly to the return address carried into 
the subprogram. 

A special method must be used to handle DSA's which 
are used internally in a UDRS. A DSA used internally must 
have both its value and itslocation adjusted by the relocator. 
A true constant, defined by a DSC, DC or DAC, must have its 
location adjusted but its value left unchanged. Unfortunately, 
in a condensed deck prepared by IBM 1620/1710 SPS II, a DSA 
and a constant are indistinguishable. For this reason, the 
following rules must be observed. 

RULE 1 ; Any DSA which is local to the subprogram and which 
is to have both its location and its value adjusted by the 
relocator, must be defined after the DORG 80000 statement 
and before the first instruction of the subprogram. 

RULE 2 ; Any constant which is local to the subprogram and 
which is to have only its location adjusted by the relocator, 
must be defined after the first instruction of the subprogram. 
For example, 
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* EXAMPLE SUBPROGRAM NO. 38 

DORG 
DC 2,38 
DORG B^SVECT-9+5*j8 
DSA GLOP, 99999, N38-80001 

DORG 80000 
DSA A1,A2,A3 
DS 20 
GLOP (an instruction) 



Al 
A2 
A3 



GORP DC 25 , 

GORP1 DC 35,1 
N38 DAS 1 

The DSA A1,A2,A3, will be adjusted as required, because it 
occurs before the first instruction which in this case is 
labelled GLOP. The two DCs, GORP arid G0RP1 will have their 
location adjusted, but their value unchanged, because thev 
occur after the first instruction. 

ASSEMBLY OF A UDRS 

Program the subprogram as described above. Place 
it behind the source deck for the permanent subprograms. 
Using IBM 1620/1710 SPS II, or AFIT SPS, put this combined 

For r pA^ G ?T n^ gh PaSS J ° f the assembl y the normal way. 
;£ imff L f assembly, read in only the source deck for 
tne UDHb; It is not necessary to read in the source deck of 
the permanent subprograms for Pass I. Get a condensed object 
deck for the UDRS. Throw away the first two and last seven 
cards of this deck. What remains is the subprogram coding 
itself, preceded by its built-in headers. 

The UDRS condensed deck is to be inserted in the 
deck after the relocator, which ends with card No ZZZ 

u? P?? mu ^ be }° ca . ted Physically in front of an v subprogram 
wEIc^TrTans. If this is not a^e^ed-^Tafr^ ror message 
will result when loading an object deck (see operating 
instructions). Obviously the relocator cannot load a 
subprogram which it has already bypassed before the calling 
subprogram appeared . & 
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TABLE II 



Subprogram Length of Sub. called 
Number Subprogram by this Sub , 



Entry to 
Subprograms- 



Purpose of Subprogram 



67 
68 
96 

69 
70 
71 
72 
76 



74 
77 
78 
75 

75 

79 

S 81 
^82 

85 
84 

85 
86 
87 



90 
91 
92 
95 
9 4 

95 
97 

98 

99 





694 
152 

528 
578 
508 
866 
5 1 * 



504 



1048 

1056 

124 

100 

104 

68 

156 

122 

74 

456 

122 

150 

268 

64 

179 1 * 

180 

176 

188 

226 

122 



68 

69,70 



72 



84 



92 



92 



9^,95 



-SVECT,ARG 
-SVECT,ARG 
-B£EXP05,A 
-B£EXP?4,B 
-SVECT,ARG 
-SVECT,ARG 
- SVECT.ARG 
-SVECT,*+12 
BT -SVECT,ARG 



BT 
BT 
BT 
BT 
BT 
BT 
BT 
BT 



00 



SVECT is the location in EEe transfer 

Its exact position is B^SVECT- 5+"5*NN, where 



Trigonometric COSINE of argument 
Trigonometric Sine of argument 
Reverse Float-Float Exponentiation A**FAC-»FAC 
Float-Float Exponentiation FAC*»B-»FAC 
Exponential function of argument, Exp ( arg ) 
Natural logarithm of argument 
Square Root of argument 
Arctangent of argument; arg. in B^FAC 
Signum of Arg; Argument: >0 Result: +1. 

=0 0. 
<0 -1. 
Random number generator; see spec .description 
Larger of (argi.arg*) 
Smaller of (argi,arga) 
Arctangent of (argi/arg») 

Sign of argj.,arg 8 . Magnitude of arg. with the 
sign of arg 2 . 

Input of E,F,I, or N-type numbers 
Output of E,F,I, or N type numbers 
Routine to handle Hollerith Fields 
Routine to handle 1/0 implied DO's 
Routine to handle I/O of arrays (formal) 
Routine to handle I/O of arrays 
1/0 subscripting routine for A (I, J) 
Accept 
Type 

Print (on-line) 
Accept tape 
Punch tape 
Reread 

Snip (part of Accept and Accept Tape) 
Variable Format 

Routine to handle repeated , parenthesized , Format 
Routine to handle A-type numbers 
Reverse Float-Fixed Exponentiation, A**FAC-*FAC 
Float -F ixed Exponent iat ion ,FAC * *I->FAC 
Reverse Fixed-Fixed Exponent iat ion, A **FAC-*FAC 
Fixed -Fixed Exponentiation FAC**I->FAC 
Reverse integer division I/FAOFAC 

Integer division FAC/J^FAC 

vector which contains the link address for the subprogram , 



BT -SVECT, ARG 



Special 
Special 
Special 
Special 
Special 

Special 
Special 
Special 
Special 
Special 
Special 
Special 
Special 
Special 
Special 
Special 
BT -B#EXP01,A 
BT -BSEXPp2,I 
BT -BSEXP05,I 
BT -BSEXP06,J 
BT -B#D1,I 
BT -B#D2,J 



NN Is the subprogram number 



TABLE III 
Permanent Subroutines 



Routine 



Purpose 



Symbolic 
Address 



Entry to Subroutine 



Floating Add 
Floating Subtract 
Reverse Floating Sub- 
tract 
Floating Multiply 
Floating Divide 
Reverse Floating Divide 
Reverse Fixed Subtract 
Fixed Multiply 
Reverse Sign 
Float 
Fix 

Zero Accumulator 
Floating Overflow 
Ck(sets error code) 



Floating underflow 
STOP N 

PAUSE N 

CALL ERRCK(N) 

CALL EPRT 

CALL RESET 

CALL SKIP 

CALL EXIT 
CALL EOFB(N) 

Return typewriter 
carriage and type a 
message 



FAC+A-*FAC 
FAC-A-*FAC 

A-FAC-VFAC 
FAC*A->FAC 
FAC/A-*FAC 
A/FAC+FAC 
I-FAC-*FAC 
FAC'*I->FAC 
-FAC-»FAC 
(A=I)->FAC 
(I=A)-»FAC 
Floating Zero->FAC 
± Floating nines 
-►FAC 

Floating zero-»FAC 

See general 

specifications 
11 11 

Check error field 
Print out error 

field 
Reset error field 
to zeros 
Find next block 

or file card 
Find next program 
Interrogate block 
and file indicator 

Obvious 



B^FAD 


BT 


B#FSB 


BT 


B^FSBR 


BT 


B#FMP 


BT 


B#FDV 


BT 


B^FDVR 


BT 


B^FXSR 


BT 


B£FXM 


BT 


B^RVSGN 


BT 


B^FLOAT 


BT 


B#FIX 


BT 


B^ZERFC 


BT 


B#ER9 


BT 


B#ER# 


BT 


B£ST?P 


BT 


B^PZUSE 


BT 


B^ERRCK 


BTM 


B^EPRT 


BT 


B^fRESET 


BT 


B^EXIT 


BTM 


B^EXIT 


BTM 


B^EOFBR 


BTM 



B#FAD,A 
B#FSB,A 

B#FSBR,A 
B^FMPjA 
B£FDV,A 
B^FDVR , A 
B^FXSR , I 
B#FXM,I 

B^RVSGN , B^RVSGN - 1 
BjffFLOAT , I 
B#FIX,A 

B^ZERFC , B^ZERFC - 1 

B#ER9,Bj*ER9-l (sign of answer 

must be in location 00099) 
B£ER0,B£ER0-1 
B£STpP,N 



B^RESET , B^RESET - 1 



B^TWSR 



BTM B£TWSR,L0C, .where LOC is the address 
of the record to be typed . 
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TABLE IV 

Useful Constants and Their Addresses 



Address Constant 

BjlFLONE Field Address of 5110000000 

BJfNlNES Field Address of 9999999999999 

BJfPNINE Field Address of 9999999999 

BJfFZERJ? Field Address of 0000000000 

BJfFZERC Defined as DC 21, (S> 

B^ONE Defined as DC 14,10000000000000 

B^ERRF Defined as DSC 18,0 

This is the error field. 



HINTS AND MOTES 

(1) All object time subprograms should assume that the 
arithmetic overflow light is ON. Fixed add and 
subtract are done in line, not by subroutine, so 
there is lots of opportunity for it to get turned 
on. All the routines of Table III assume the 
overflow is ON. Conversely, if your subprogram 
turns on the overflow light, the other routines 
could not care less. They turn it off themselves 
if they need it. 

(2) The console area (locations 00000 to 00099) is 

. available for work area. Routines of all sorts use 
it for temporary storage. Watch out for possible 
complications if your subprogram calls other 
subprograms which also use the console area as a 
scratch pad. The accumulator is in B#FAC, loc 50-59. 
Put the result of a function subprogram there. 

(3) The error field has blank spaces in it for user -defined 
error codes. Th e high order digit of the error field 
is in location B^EHRF. Use a TDM instruction to put a 
suitable digit in the right place. Do not used fla gged 
digits in the error field . It will foul up the compare 
instruction used to find out whether the field is all 
zero or not. 
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The following papers were presented at the joint Canadian and Mid-western Regional 
m eeting of the IBM 1620 Users Group in Chicago, February 19-21, 1964. 

These programs will tie submitted to the 1620 Users Group Program Library in the 
near future. 

CARLETON COLLEGE COMILEr. by Donald H. Taranto , Carleton College, Northfield, Minn. 

The Carleton College Compiler is a load-and-go algebraic compiler designed especially 
for the 20K , automatic floating-point card system with indirect addressing and additional 
instructions. Compilation and execution are fast, and batch operation is handled quickly. 

The language includes the usual 4-digit fixed-point, 10-digit mantissa floating-point, 
and elementary function arithmetic. In addition, there are boolean, maximum-minimum , and 
remainder operations. Subroutine calls are allowed and flexible alphameric typed output 
is available. 

The entire compiler occupies 9-11K of core (depending upon what function subroutines 
ar» included) and is practically fool-proof. Source statements -are thoroughly checked 
for legality during compilation. 

This fast, versatile compiler is bought at the price of severe (but not serious) 
restrictions on variable and statement formats. 



CARLET01I BINARY SIMULATOR by William R. Gage, Carleton College, Northfield, Minn. 

The Carleton Binary Simulator is an interpreter which turns the 1620 into a 
fixed-word-length, single address, binary computer. There are 4096 words of 16 
bits (15 bits and sign) each, a 32-bit accumulator-remainder unit, and a 12-bit 
index register. There is a generous supply of arithmetic, boolean, control, and 
input-output instructions. 

This versatile and unusual interpreter is bought at the price of rather slow 
execution of a source program. Machine requirements are 20K Card System, Automatic 
Divide, Indirect Addressing, and Additional Instructions. 
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Modifying Monitor I 
to Include other Programming Systems 

by 

Alan V, Pur cell 
l&gineering Computing Laboratory 
University of Wisconsin 
Madison, Wisconsin 
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Modifying Monitor I 
to Include other Pr pgr awning; Systeas 



I Introduction 

A. Objectives of Modification 

1. Monitor I Compatibility 

2. Compatibility with system 
to be added 

B. FORGO as an example of such a Modification 

II Integration of the Systems 

A. Modifications to Monitor I 

B. Modification! to FORGO — a typical 
system to be added 

C. Operation of the Resulting System 
Hi Soatt Suggested Changes to Monitor I 
Appendix 
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Modifying Monitor I 
to Includ e other Programming Systems 



I Introduction 

The purpose of this paper is to show how it is possible to include 
other programming systems in the Monitor I package, even if the systems 
to be added require different types of control cards and occupy the same 
memory locations as the Monitor I Supervisor. To warrant such a modifi- 
cation, the system would have to be in use frequently enough to Justify 
including it on a level with FORTRAN II-D, the Disk Utility Program, and 
SP3 II-D and it would presumably be undesireable to re-assemble it under 
SPS II-D and use it under the XEQ option of Monitor I. 

The resulting modified monitor system would have complete compati- 
bility with Monitor I, i.e. all Monitor I functions would be performed 
as before. In addition, the modified Supervisor would recognize control 
cards for the additional system and transfer control to it when such 
an option is specified. The system to be added would require some modi- 
fication to require it to return control to the Supervisor routine when 
a Monitor I control card is specified. 

In this paper the necessary changes to Monitor I are explained. 
As an example of a typical system to be added, the FORGO Fortran com- 
piler is used throughout. By way of explanation and background, FORGO 
is a compiler which is uniquely suited for educational use because: 

(a) FORGO is a load- and-go FORTRAN compiler. Since it resides 
in memory at all times, it eliminates processor reloading 
and object deck handling. 

(b) It has exrememly complete diagnostics, both at compile time 
and run time. Even at run time, all comments are referred 
back to the user's source language program. 

(c) FORMAT is optional, permitting the postponing of this single 
most complicated FORTRAN statement until after running ex- 
perience has been gained. 

It should also be noted that the version of FORGO used was the 
two pass system, in which the compiler section is overlayed in memory 
by the subroutines at program execution time. The compiler section 
is known as FOR-TO-GO A and the subroutine section is known as FOR- 
TO-GO B. 

Under this scheme, if a FORGO control card is recognized by the 
Monitor I Supervisor, FOR-TO-GO A is called into core. If the progran 
is accepted, FOR-TO-GO B is called in and the program executed. If a 
Monitor I Control Record is then read in, control returns to the Super- 
visor, and the appropriate system is called in. Thus mixing types of 
jobs (i.e. FORTRAN II, SPS, FORGO, previously assembled or compiled 
object program, etc.) is perfectly allowable and requires no operator 
intervention to load decks. 
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II Integration of the ays tarns 

A. Modifications to Monitor I 

The basic modification to the Monitor I system is, of course, 
the inclusion of the additional system to be added. FCRGO is used 
here as an example. 

this modification is made more difficult by the fact that the 
supervisory routine of Monitor I requires all core locations below 
location 2&02, as doe3 the FCRGO compiler, This means that FORGO 
will have to replace the Supervisor in memory, yet be called into 
memory under control of the Supervisor. Also, patches to Monitor I 
must go above the area used by the Supervisor (i.e. above 13160) 
and must be replaced every time they are destroyed. Ihe specific 
patches to accomplish this are found in the Appendix; it suffices 
to outline them generally here. 

The patches to Monitor consist of two main parts; one is the 
routine which reads in the patch area of the Supervisor every time 
it is destroyed, and the other is the routine which scans the in- 
coming cards for FORGO control cards— as well as for Monitor I con- 
trol cards . This first patch area, beginning at location 291 1» in 
the Supervisor, reads the Monitor I Supervisor patch area into lo- 
cation 13162 and branches to it to execute the instructions dis- 
placed by the first patch area. The choice of location 2911* to 
begin these read instructions was not arbitrary. The instructions 
in this area are executed every time the Supervisor is read into 
core, thus assuring that the second patch is in core also. It is 
a location that makes certain that several disk indicators are reset, 
so that reading in the second patch area doe3 not cause erratic disk 
operations. 

The second patch area forms the linkage between the Monitor I 
System and the FORGO compiler. Upon recognition of a FORGO control 
card, the FORGO compiler is read in and supervisory control passes 
to it. Thus, in this patch area is the routine which scans for FORGO 
control cards. 

B. Modifications to FORGO — A typical System to be added 

The patches to FORGO are chiefly those required to link FORGO 
and the Monitor I Supervisor (see flow chart, Fig. 3). Using the 
modified system, if a FORGO control card is recognised by the Super- 
visor, FOR-TO-GO A (the compiler) is called into core from disk. If 
the program is acceptable, FOR-TO-GO B (the subroutines) is called 
in and the program is executed. Control is then returned to the 
Supervisor, and the process repeated. Every card read under the 
supervisory control of FORGO is checked to see if it is a Monitor I 
control card; if it is, FORGO operation is terminated with an error 
comment if appropriate, the Supervisor is read from disk, the card 
is set-up in the Supervisor input area in memory, and supervisory 
control is relinquished to the Supervisor. 
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C. Creation of the Resulting System 

The procedure used in creating the working version of the resulting 
system is given here. The pertinent listings and typewriter sheets are 
given in the appendix of this paper. 

The same basic procedure is used in adding the main patch area to 

Monitor I and in adding the additional system. It is necessary that 

the actual changes to the Supervisor, which are done using the D. U. P. 
routine DALTR, be done last. 

The basic procedure was to first load the Monitor I system on disk 
as described in the Monitor I Systems Reference Manual. After this has 
been accomplished the system to be added, for example, FOR-TO-GO A, is 
loaded into core. The Disk Write Program is used to transfer it to the 
work cylinders, and the Monitor I D. U. P. routine DLOAD is used to 
move the information from the work cylinders to the desired disk cylinder s- 
in this case cylinders twenty-six and twenty-seven were used to contain 
FORGO and the Supervisor patch area. Exactly the sane procedure is followed 
for adding the chief Supervisor patch area (which starts in core at 13162). 

To make the patches within the Monitor I Supervisor itself, the 
Disk Utility routine DALTR was used, and the desired changes were typed 
in (see typewriter sheets). Now the entire system in on disk in the 
form required for operation. 

To get decks which will load under control of the Monitor I System 
Loader and to eliminate the need to do all of the preceding steps every 
time it is desired to reload the system on to disk, the DUP routine DDUMP 
was used. The system tables, the modified Supervisor, FOR-TO-GO A, FOR- 
TO-GO B, and the Monitor patches were dumped on cards. It was then nec- 
essary only to add the System Loader control card to each deck, the format 
of which is described in the Monitor I Systems Reference Manual. The 
systems tables deck replaces deck two of the original system, the Super- 
visor deck replaces deck seven, and the other decks are added at the end 
of the other Monitor I decks when it is desired to load the system on to 
disk. 

Concerning ordinary operation of the modified system, it is the same 
as the Monitor I system. Cold start procedures are exactly the same. 
Disk cylinders twenty-six and twenty-seven are not available for u3e, 
however. These cylinders are protected by the Monitor I system tables. 



Ill Some Suggested Changes to Monitor I 

B. Improvements to Monitor I 

Other systems could be added to Monitor I, using much the same 
techniques as were used in adding FORGO to Monitor I. Possible 
additional systems could be ALGOL, UW-SPS, COGO, etc. Suitable con- 
trol cards could be designed, and the routine which scans for FORGO 
control cards could easily be expanded to include a scan for the 
other control card types. 
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A very important modification which should be ina'-s to the 
Monitor I system loader, whether FORGO has been added to the Monitor I 
system as described in this paper or not, would be one which puts 
read-only flags on the sector addresses of the Monitor I system 
routines as they are loaded onto the disk. The purpose of these 
flags is to file-protect the information contained on the flagged 
sectors; information contained thereon may then be read but cannot 
be written over and destroyed. Although parts of the system must 
be left capable of being changed (i.e. the system tables), the un- 
changing parts could be file-protected by the loader — perhaps sig- 
naled to do so by a punch in a certain column in the heading con- 
trol card of the decks to be loaded. Not file-protecting the sys- 
tem routines is a serious error on the part of the creators of the 
system, and as it stands, any SPS program could, through use of disk- 
write instructions, destroy the system routines on disk and neces- 
sitate reloading the entire system from cards. 
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4288.425 






18124 


16 


18368 00M22 


133 




TFM 


INAR. 422. 9. 




PUT CARD IN MONITOR INPUT AREA 


18136 


16 


18368 -0422 


134 




TFM 


INAR. 422 






18148 


16 


18373 J3000 


135 




TFM 


INMON. 13000 






18160 


25 


18371 1836Q 


136 


TD 


TD 


-INMON. -INAR 






18172 


11 


18368 000-1 


137 




AM 


INAR. 1.10 






18184 


11 


18373 000-1 


138 




AM 


INMON. 1. 10 






1 8196 


14 


18368 -0583 


139 




CM 


INAR. 583 






18208 


47 


18160 01300 


140 




BN 


TD 






18220 


32 


13160 00000 


141 




SF 


13160. . . 




INDICATE MON. C. RECORD ALREADY 


18232 


17 


17104 N3432 


142 




BTM 


17104.53432.7 




READ. ERROR LC-2 


18244 


49 


18264 00000 


143 




B 


* + 20 






18252 






144 




DORG 


*-3 






18252 


48 


00000 00000 


145 


HALT 


H 








18264 


34 


18374 00701 


146 


RE ADM 


K 


MON.701 






18276 


15 


00031 00005 


147 




TDM 


31.5 






18288 


36 


18374 00702 


148 




RN 


MON, 702. . 




READ IN MONITOR 


18300 


46 


18252 01900 


149 




BA 


HALT 






18312 


49 


02402 00000 


150 




B 


2402 






18320 






151 




DORG 


*-3 






18320 


39 


00595 00400 


152 




WACD 


595 .» . 




REPLACE INSTRUCTION 


18332 


46 


18356 00400 


153 


END 


BC4 


* + 24 






13 344 


48 


00000 00000 


154 




H 








18356 


49 


18264 00000 


155 




B 


READM 






18364 






156 




DORG 


*-3 






18368 




5 


157 


INAR 


DS 


5 






18373 




5 


153 


INMON 


DS 


5 






18374 




1 


159 


MON 


DC 


1.1.. 




THIS IS A DDA TO CALL MONITOR 


18379 




5 


160 




DC 


5 .19636 






18382 




3 


161 




DC 


3.113 






1 8387 




5 


162 




DC 


5 . 102 






01070 






163 




DEND 


1070 







^#*#«-********#****#-»***»***»******#*»**#*##»«**# -it ***»»»♦#«#♦**»*»««-. * 

* THIS IS A PROGRAM TO WRITE A PROGRAM IN CORE ONTO THE 

* DISK WORK CYLINDERS. CHECKING IS DONE FOR CORRECT TRANSFER 

* OF DATA. 



ALAN V. PURCELL 

ENGINEERING COMPUTING LABORATORY 
THE UNIVERSITY OF WISCONSIN 
MADISON. WISCONSIN 53706 



; « s * * -5 * * jf c !s«ss»»sjtsf e * j-- { 



f * * *# » * 

; X if- fr * 5 5 



19000 








DORG 


19000 


1 9000 


34 


00000 


00102 


START RCTY 




19012 


39 


19263 


00100 


WAT Y 


MESl 


^19024 


34 


00000 


00102 


RCTY 




U19036 


36 


19254 


00100 


RNTY 


IN-2 


19048 


34 


00000 


00102 


RCTY 




19060 


39 


19321 


00 100 


WATY 


MES2 


19072 


34 


00000 


00 102 


RCTY 




19084 


36 


19257 


00100 


RNTY 


BEG I N- 


19096 


31 


00000 


19228 


TR 


. FORGO 


19108 


34 


00000 


00102 


DISK RCTY 




19120 


34 


1 9 2 4 8 


00701 


K 


WK.701 


19132 


38 


19248 


00702 


WN 


WK.702 


19144 


36 


19248 


00703 


RN 


WK.703 


19156 


47 


19204 


01900 


BNA 


* + 48 


19168 


39 


19397 


00100 


WATY 


MES3 


19180 


48 


00000 


00000 


H 




19192 


49 


19108 


00000 


6 


DISK 


19204 


39 


19487 


00100 


WATY 


MES4 


19216 


48 


00000 


00000 


H 




19228 


41 


00000 


ooioo 


FORGO NOP 


. 100 


19240 


4 9 


1070 


00000 


B 


1070 


19247 








DORG 


*-4 


19247 




1 




DC 


1 »<? 



TO PUT CORRECT FORGO INSTRUCTIONS 



00002 
00004 
00006 
00008 
00010 
00012 
00014 
00016 
00018 
00020 
00022 
00024 
00026 
00028 
00030 
00032 
0003-+ 
00036 
00038 
00040 
00042 
00044 
00046 
00048 
00050 
00052 
00054 
00056 
00058 
00060 
00062 
00064 
00066 
00068 
00070 
00072 
00074 
00076 
00078 
00080 



19248 
19253 
19256 
1926 1 
19263 
19321 
19397 
19487 
19000 



1 

5 
3 
5 
29 
38 
45 
26 



WK 
IN 

BEGIN 

MESl 

MES2 

MES3 

MES4 



DC 

DC 

DC 

DC 

DAC 

DAC 

DAC 

DAC 



1.1.. 

5 .4000 

3.0 

5.0 

29. TYPE A 
38. TYPE A 



THIS IS THE DISK CONTROL FIELD 



3 DIGIT SECTOR COUNT @t 
5 DIGIT CORE STARTING ADDRESS <?. 
45. INCORRECT DATA TRANSFER. PUSH START TO RETRY*?. 
26. DISK OPERATION SUCCESSFUL®. 



DEND START 



00083 
00086 
00089 
00092 
00095 
00099' 
00103 
00107 
001 1 1 



160000800000RS 

EQUTAB LOADED FROM 
DIMFOR LOADED FROM 
SEQ PL LOADED FROM 
DUP A LOADED FROM 
DUP B LOADED FROM 
DUP Z LOADED FROM 
SUBSUP LOADED FROM 
ALLSUB LOADED -FROM 
SPSHO LEADED FROM 
SUPER I LOADtD FROM 
PH 1-A LOADED FROM 
PH 1+2 LOADED FROM 
LOAO 1 LOADED FROM 
LOAD 2 LOAOEO FROM 
SET 1 LOADED FROM 
SET 2 LOADED FROM 
DIM FS LOADED FROM 
FLN FS LOADED FROM 
FEXPFS LOADED FROM 
SUB FS LOADED FROM 
DKIOFS LOADED FROM 
S+C FS LOADED FROM 
FATNFS LOADED FROM 
SQRTFS LOADED FROM 
AfiS FS LOADED FROM 



•,( 5000 TO 10 50 79 

1 (; ' 800 TO ]Oi*099 

0'"!9801 TO 079380 

1T8139 TO 1 18599 

179300 TO 1 19399 

"1 7 7084 TO 1 17 127 

077024 TO 0170 74 

076400 TO 016799 

078600 TO OT9291 

1 79600 TO 1 19 799 

OT72OO TO 017339 

OV/400 TO 0ttl38 

076000 TO 0^6199 

016940 TO 016964 

019400 TO Q19599 

676800 TO 016339 

004802 TO 004507 

€76200 TO 01621 1 

016212 TO 016227 

076228 TO 076234 

076235 TO 016267 

T316268 TO 076280 

016281 TO 076298 

076299 TO 076306 

016307 TO 076308 



**JOB 5 
ttDUP 5 

*DFIN£ 5 

**PAUS 
END Of JOB 



I05 



3-62A FOR-TO-GO 

TYPE A 3 DIGIT SECTOR CCJUT 

186F.S 

TYPE A 5 DIGIT CORE STARTING ADDRESS 
OOOOORS 

DISK OPERATION SUCCESSFUL 

j j. JOB 5 V.'RITE FROM WORK CYLINDERS 

ttDUP 

*DLOADF0RGOA 0200 1 04000 104 1 85005200000000 1070D i P026027 

DUP* TURN ON WRITE ADDRESS KEY., START 
DUP* TURN OFF WRITE ADDRESS KEY^ START 
OK LOADED FQRGOA 5200 OO5200186O2402O1070* 
END OF JOB 



3-62B. FOR-TO-GO 

TYPE A 3 01 GIT SECTOR COUNT 

1 75RS 

TYPE A 5 DIGIT CORE STARTING ADDRESS 

00958RS 

DI-SK OPERATION SUCCESSFUL 



44: JOB 5 WRITE FROM WORK CYLINDERS 

ttDUP 

*OLOADFORGOB 620 1 10^000 1G41 74005^00009580 1070D I P027028 

DUP* TURN ON WRITE ADDRESS -KEY, START 
DUP* TURN OFF WRJTE ADDRESS KEY A START 
DK LOADED FORGOB 0201 00540017500958O1O7O1 
END OF JOB 



TYPE A 3 0IG1T SECTOR COUNT 

005RS 

TYPE A 5 DIGIT CORE STARTING ADDRESS 

13162RS 

DISK OPERATION SUCCESSFUL 

jfjOB 5 WRITE FROM WORK CYLINDERS 

**DUP 

*DLOADMONPAT 0202 104000 1O40O4005387 1 3 1 6202402 D I P026027 

DUP* TURN ON WRITE ADDRESS KEY, START 
DUP* TURN OFF WRITE AD::. ESS KEY a START 
DK LOADED MONPAT 5202 OO5387O0513162O2402I 
END OF JOB 
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^ J0B 5 ALTER MONITOR SECTORS 

**DUP 

♦BALTR 

SECTOR 
1 1 9664RS 

1ST HALF 3400000001 0225097940 2878310211 0040462602 1030285725 
2NdIhALF 0044002857 3200456000 0015019670 0009430316 2004781509 



ORIGINAL 
ORIGINAL 



SECTION 
©2*5 

1ST HALF 3400000001 0225097940 2878310211 0040462602 1030285725 ORIGINAL 
1ST*HALF 3400000001 0249028380 0O0048Q000 0000003404 0880070136 



CORRECTED 



7HD HALF 0044002857 3200456000 0C15019670 0009430316 2004781509 ORIGINAL 
IwmJaLF 0408800702 4602926019 0049131620 0009430316 200 4781509 CORRECTED 

SECTION 

%^?Vo¥ CTOR H9664^QRR£CTiO 
1196f5R5 



1ST HALF 5666403322 64018*1196 63001 02802 *22O9732*0 0OO*6lo7oT 
W»"SlF hh 150982 8000002504 1278285525 0410302855 2*0.4941107 

SECTION 

OCRS ^ , 

1270285525 TYPE CHANGE /V^/e Typi*tsj err<?r 

yyyyyyyyi i JO 1. 1 IRS ^ — ■ — ■ — 

1ST ^ALF 5660403322 040V8*ll96 6300102802 ±2209732+0 OOOJOTOigi 
1ST*MALF 5666403322 040l8*ll96 6300102802 ±2209732*0 000*010101 



ORIGINAL 
ORIGINAL 



ORIGINAL. 
CORRECTED 



2M0 HALF 6140150982 8000002504 i27028552§ 0410302855 2604941 107 ORIGINAL 
US.'HALF §t|01 50982 8000002504 12702855U 569T902&55 2604941 It) 7 CORRECTED 



SECTION 
08R5 

12702S55U TYPE CHANG£ ^ Corrca 

XXXXXXXX4913242O10538700513162RS ^J- __, 

1ST HALF 5660403322 6401 8*1196 6300102802 *2209732*0 000*015.101 ORIGINAL 
1ST*HALF 5666403322 540 1 8* 1T96 6300102802 ±2209732*0 000*010101 "CORRECTED 

2ND HALF 5T*0150982 80000025O4 12 702855B 5591902855 2604941107 ORICINAL 
2N0!hALF 61*0150982 8000002504 12 70285549 1324201053 87005131*2 CORRECTED 

SECTION 

*!iS ■ 

TJ1SX SECTOR M9675 CORRECTED 

SECTOR 

119678 



I07 



1ST HALF 6044043280 4127340000 0001021509 8280000145 0405613001 ORIGINAL 
2nd! HALF 4504O56J30 0316097040 0004170803 -8130O545O4 4440973045 ORIGINAL 



SECTION 
0KS5& 13001 



TYPE CHANGE 



UOOU^S — " J "// ,y "V err " r 

1ST. HALF 6044043280 4127340000 0001021509 
1ST. HALF 6044043.280 4127340000 000H)21509 

2ND. HALF 4504056130 0316097045 0004170803 
2ND. HALF 4504056130 0'" ' -^mhO 00041 70^03 



8280000145 0405613001 ORIGINAL 

8280000145 555561300! CORRECTED 

8T30054504 4440973045 ORIGINAL 

P.~ijOG54504 4440973045 CORRECTED 



SECTION 

05K3 

5664613001 
13310R5 



TYPE CHANGE 



1ST. HALF 6044043280 4127340000 0001021509 
1ST. HALF 6044043280 4127340000 0001021509 

2ND. HALF 4504056130 " 03 1 6097040 0004170803 
2ND.HA1F 45O4056130 031 6097040 0004170803 

SECTION 

*RS 

DISK -SECTOR 1 19678 -CORRECTED 

SECTOR 

*RS 



8280000145 5555613001 ORIGINAL 

8280000145 1331013001 CORRECTED 

8T30O54504 4440973045 ORIGINAL 

8130054504 4440973045 CORRECTED 
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*tDUP 
*ODUMP 
END OF JOB 
**J0B 5 
**DUP 
*DDUMP 
END OF JOB 
ttJQB 5 
**DUP 
♦DDUMP 
END OF JOB 
**JOB 5 
**DUP 
*DDUMP 
END OF JOB 
**JOB 5 
**DUP 
*DDUMP 
END OF JOB 
**JOB 5 
**DUP 
♦DDUMP 
END OF JOB 



CSO 



CI 



CE 



CL 105200105385 



CL 105387105391 



CL lOS^OOIOSS? 1 * 
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A New Course 

in 

Computer Appreciation 



Charles H. Davidson 
Engineering Computing Laboratory- 
University of Wisconsin 



Computer Education is becoming a recognised necessity for the tech- 
nical student in college. At Wisconsin it has been incorporated in the 
required experience of all engineers for some time, and is being made 
increasingly available to interesteu students with various bacKgrounds 
and degrees of preparation, as is indicated in Figure I, which lists the 
courses available in the Numerical Analysis Department. 

The first entry in this table, however, represents an innovation in 
the teaching philosophy. Here for the first time is a course deliberately 
aimed at the non- technically tra ned student. As is pointed out in Figure 
II, the catalog description of the course, the only prerequisite is inter- 
mediate level high school algebra, equivalent to about two and one half 
units of high school mathematics; it is estimated that about J/h of our 
University freshmen are eligible to take this course. 

"Introduction to Computing Machines" is intended to be more of a 
cultural than a professional course. Many of the students who take it 
may indeed never use a computer again, but they will all hear about com- 
puters every week of their lives. '.Vhenever they receive a paycheck, re- 
gister for a class, pay an insurance premium, make an airline reservation, 
or watch a rocket launching or an election return, it is almost certainly 
an IBM card or a computer -produced document they will be dealing with. 

As the course is taught, the first two weeks are devoted to acquiring 
enough of a rudimentary knowledge of FWTRaN to be able to present simple 
problems to the computer. The rest of the course consists of examining 
some of the areas of significant application of the computer, classified 
as far as possible according to the particular advantages or capabilities 
of the computer. In each case, the students actually do simplified, 
watered down example problems illustrating its use, and extrapolations 
hopefully point out and make meaningful the true role of the computer 
in these areas. During the first semester it was offered, the students 
each did about twelve problems on the computer, including problems in: 

1) finding roots of polynomials 

2) class scheduling 

3) sorting and table look-up 
h) inventory control 

5) missle tracking 

6) library information retrieval 

and several others . 



/// 
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All of this laboratory work has been done in the Engineering Com- 
puting Laboratory using the FORGO system, which is ideally suited for 
this type of teaching, with the exception of one problem near the end 
of the samester in which the use of the CDC 1601 and monitor systes 
operation were demonstrated. 

Figure III presents a condensed outline of the course, indicating 
some of the topics discussed and their sequence. Perhaps, however, one 
of the best pictures of the scope of the course can be obtained froa the 
list of Review Questions shown in Figure IV, which was distributed shortly 
before final exam time, and represents material which they might be ex- 
pected to have learned. 

Since there is obviously no text-book existing which treats such a 
ranpe of material in this fashion, we are preparing all of our own notes 
for the course, which will be published as a textbook. A preliminary 
version of the notes will be printed for use with the third offering of 
the course in the fall of 1961, and the official published version of 
the book is expected to be out in the late spring of 1965. 

Some people are referring to the course in a colloquial fashion as 
"Computer Appreciation". This we accept as an apt description, provided 
it is modified to read "Introduction to Computing Machines— a do-it-your- 
self course in computer appreciation". 



Ill 
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UNIVERSITY OF WISCONSIN 
Courses in Computer Programming 



NUMBER 


TITLE OF COURSE 


PREREQUISITE 


CREDITS 


NA 132 


Introduction to Computing Machines 


Intermediate high 
school mathematics 


3 


NA 301 


Computer Programming in the 
Physical Sciences 


Differential 
Equations 


2 


NA 315 


Introduction to Data Processing 
Methods 


One semester 
college math 


3 


NA413 


Introduction to Numerical Analysis 


Differential equations 


3 


NA 415 


Intermediate Programming Methods 


Differential equations 
and elem. FORTRAN 


3 


NA 814 a,b 


Advanced Numerical Analysis (year) 


NA 413 


3,3 



Plus seminars and short courses 



Tijar* X 
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THE UNIVERSITY OF WISCONSIN 

COL LEO E OP ENOINEERINO 
MADISON C 

okmrtmikt or 

ELECTRICAL ENOINEEniNO 



Numerical Analysis 132 
"BfTBODUCTION TO COMPUTING fcACHINES" 



How computers work; communicating with computers; areas of application 
and significance; simple FOr-MAN programming; elementary data processing 
and problem solving. Prerequisite, intermediate level of high school 
mathematics. Offered each sexester, 3 credits. 

An opportunity for the con-technically trained person to acquire an 
understanding of the uses, method of operation, and significance of 
the electronic computer in the world around hln. Students will both 
hear about and actually use the computer in solving problems in 
mathematics, business, game playing, and many other fields. 

The course will be taught jointly by the Numerical Analysis Department 
and the Electrical Engineering Department, with two leotures and a 
laboratory period each week. It will be first offered in the fall 
of 1963. 



"Figure JL 
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Numerical Analysis 132 



'INTRODUCTION TO COMPUTING MACHINES" 



Chapter 
Chapter 
Chapter 
Chapter 
Chapter 
Chapter 
Chapter 
Chapter 8 
Chapter 9 
Chapter 10 
Chapter 11 
Chapter 12 
Chapter 13 
Chapter 14 
Chapter 15 



The Information Machine 
The FORTRAN Language 

Things Worth Computing: 
The Second Industrial Revolution 

Things Worth Computing: 
Further FORTRAN 

Things Worth Computing: 
What Goes on Inside Computers 

Things Worth Computing: 
The Language of the Machine 

Things Worth Computing: 
Other Kinds of Computers 

Things Worth Computing: 

Things Worth Computing: (G) Just Plain Curiosity 
Computers and the Future 



(A) Routine Repetition 

(B) Try and Try Again 

(C) When Mistakes are Costly 

(D) Hurry, Hurry, Hurry 

(E) Simulating the Real Thing 

(F) Memory Like and Elephant 



Fiqure HE 
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NA 132 



Review ^uestioms" 



1 . Actual FORGO operating procedure on the 1620. 

2. Distinguish between: a) machine language b) symbolic language 

c) algebraic language 

3. What is the difference between "compile 1 * time and "execute** tine? 
How does FORGO mark the transition? 

li. Name two (data handling) processes at which the human ia more 
efficient than the computer. 

5. Below are listed five characteristics of computers. List three 
important areas of application that take advantage of each (not 
necessarily mutually exclusive) . 

a) high speed 

b) accuracy (freedom from mistakes) 

c) repetetive ability 

d) large non-forgetting memory 

e) logical ability 

6. What are "pseudo-random'* numbers? What good are they? 

7. How are computers used in inventory control? 

8. What trends are observed in business uses of computers? 

9. How are computers used in product design? How does this compare 
and contrast with automation? 

10. What is a "critical path"? 

11 . When is a computer operating in "real'* time? Illustrate. 

12. Elementary binary arithmetic. 

13. Why is binary arithmetic used? 

111. What are the five main functional units in a general purpose digital 
computer? Diagram then, showing the principal paths of data flow 
and control. 

1$. What is meant by a single address computer? two address? one-plns- 
one address? three address? Give an example of each type of in- 
struction. 

16. Compare analog and digital computers. 

17. Name the three main logical components of an analog computer. Which 
is used to get distance from velocity? How? 

18. How do you program an analog computer? 

19. Why are libraries concerned with "Information Retrieval"? 

20. What are some of the problems in attempting to upgrade the intelli- 
gence of a computer? 
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COMPUTER CENTER 

Western Michigan University 

The Computer Center was established in Room 372 of 
Wood Hall in August 1962. Professor Jack R. Meagher 
was appointed Director. 

The Computer Center is organized as a University-wide 
service, like the University Library, to provide research, 
training and service facilities for faculty, staff and 
students. A basic policy of the Center is to encourage 
widespread interest and use of all its equipment. High- 
ly technical knowledge is not required . Information 
concerning the use of the Center ' s equipment is being 
prepared and will soon be distributed. 

An Advisory Committee, consisting of the Director of the 
Computer Center, the Dean of the School of Graduate Stud- 
ies, and nine other faculty member's have been appointed 
by the Vice President for Academic Affairs. This 
committee will (1) be representative of the whole Univer- 
sity, (2) present the Computer Center's operations to 
the University, and (3) establish broad, general policy 
for the Center. 

The following diagram portrays the Computer Center 
organization: 



Vice President for 
Academic Affairs 



Advisory Committee 



Director 



Machine Room Supervisor 



Secretary-Key Punch Operator 



3 Graduate Assistants 
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FORTRAN WORKSHOP 



Jack R. Meagher 

MARCH, 196U 



The follewing equipment has been installed In the Computer 
Center at Western Michigan Universityr 

191 1620 Central Processing Unit - (20,000 positions 
of core storage, a console panel, and an 
input-output typewriter.) 
Automatic Divide 
Indirect Addressing 
Table Protection 
Additional Instructions 
Floating Point Arithmetic 

1622 Card-Read Punch 

1623 Storage Unit (additional 20,000 positiens of 
core storage) 

In addition to the IBM 1620 Data Processing System, which is 
an electronic computer system for scientific and technological 
application, the Computer Center has the following auxiliary 
machines t 

2 Key Punch t (026) A basic machine for transferring data 
to punched cards. It aleo can print the punched data 
on other cards. 

Sorter : (082)- with Counting Unit) This machine sorts 
cards into a number of p re-selected categories. The 
counting device tabulates the nunber of cards in each 
category. 

Collator r (077) The basic function of the collator is 
"filing*. It is capable of making comparisons between 
decks of cards; and then merging, selecting, or check- 
ing the sequences of the cards. 

Reproducer} (5lU) This machine can produce cards that 
have been previously punched. It can duplicate the 
original pattern or select and/or rearrange the punched 
pattern. 

Interpreter } ($52) This machine prints on the face of 
cards the data that is punched in them. It facilitates 
reading and editing the cards. 

Accounting Machine : (U07) The Computer Center will use 
this machine primarily to print the input and output 
data of the computer. This machine has many other cap- 
abilities. 
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A. Mathematics Departmsnt t 



Fortran Workshop 

A short , intensive, no-credit course for 20 clock hours. 
The workshop is non-technical in nature, and has no p re-requisite . 
The purpose of the workshop is to teach the fundamentals of 
Fortran programing. This workshop is offered each semester and 
each summer session. 

Programing for Computers - 506 

Organisation of, problem preparation for, and general 
u* of, high-speed computing Machines from the point of view of 
scientific and engineering computations. Flow charts and pro- 
grams will be prepared for problems such as: social security, 
square root, quadratic equation exponential, multiplication of 
matrices, solution of polynomials and correlation. Problem 
will be dene in machine language followed by the use of a com- 
piler (Fortran). Boolean algebra. Integration of one ordinary 
differential equation numerically. Pre-requisite > Calculus. 
This is offered every semester. 

wwmorlcal Analysis - $07 

Rmmerieal methods as applied to matrix inversion, sets 
of linear equations, linear programming problems, eigen-valuea 
and eigen vectors. Integration of ordinary differential equa- 
tions and integration of partial differential equations will be 
presented. Pre- requisite i Math $30 (Vectors and Matrices) 

B. Business Administration t 

Integrated Data Processing - 359 

A survey of mechanical and electronic data processing 
methods with particular emphasis on the application of the 
electronic system and with special reference to administrative 
problems experienced in Introducing computer systems. 

Introduction to Management Science - 55U 

Modern scientific techniques used in business and 
industry for controlling operations, maximising profits and minim- 
ising costs. Allocation of msn, memsy and machines among alternat- 
ive uses. Other strategies and control methods applicable to 
management, marketing and finance. Preq.— a course in Statistics. 

Electronic Data Processing Seminar - 555 

Examination of current literature in electronic data 
processing with special emphasis on systems analysis, applications 
of computers to business problems, and feasibility studies. 
Pre- Requisite t A Computer Course or Consent. 
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Exercises Assigned in Math 506 Programming for Computers 



9, 
10, 
11. 
12. 
13. 
It. 

15. 



Volume of Right Circular Cylinder 
Social Security Problem 
Square Root by Newton's Method 
Ouadiatic Equation 



Machine Language 
Machine Language 
Machine Language 
Machine Language 
Fortran 



Volume of Ri^ht Circular Cylinder, Use 
Sense Switch to Compute 

V- YTrr h < 
\/= irr*fi f 

Ouadfatic Equation (Use Hollerith Statement) Fortran 

Given the coordinates of two line segments, 
find coordinates of the points of inter- 
section . 



Evalcate e x 

Multiply two matrices 

Find the Inverse of Matrix 

Solve a cubic equation 

Correlation Coefficient of X,Y,X 

Solve a system of simultaneous equations 

Correlation Coefficient up to and 
including 20 variables. 

a. Calculate an integral by Trapezoidal 
Rule ; 

Calculate an integral by Simpson Rule 

b. Solve a differential equation by the 
Runge Kutta Method. 



Fortran 

Fortran 
Fortran 
Fortran 
Fortran 
Fortran 
Fortran 
Fortran 

Fortran 
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The following is a resume of my talk presented to the joint meeting of the 
Canadian and Midwestern Regions of the 1620 Users Group in Chicago, 
February 21, 1964: 

Miami University, having no engineering school, has concentrated its 
computer education courses in the new Department of Systems Analysis. 
This department functions as both a degree granting department and a 
service department for other University departments. 

In its role of a service department, a course in 1620 FORTRAN 
(2 credit hours) is offered each semester and during the summer term. 
In addition, students from other departments are free to take any Systems 
Analysis courses offered provided they have the necessary prerequisites 
(proper mathematics background in most cases). 

For majors in Systems Analysis, two alternatives are offered, business 
or scientific. In either case, the first two years are devoted to program- 
ming, computer analysis, and an introduction to systems analysis. The 
programming progresses from machine language, to assemblers, and then 
to the various compilers. The third and fourth years are devoted to the 
tools of analysis where all examples are worked on the computer. 

The Systems Analysis courses offered are: 

Introduction to Systems Analysis I and II 
Computer Analysis I and II 
Systems Design and Selection 
Linear Programming 
Analog and Hybrid Systems 
Operations Research I and II 
Simulation and Model Building 
Dynamic Programming 

Advanced Data Processing Applications I and II 
Management Science 

Commercial majors are required to take some business and accounting 
courses as well as 20 or more credit hours of mathematics. Scientific 
majors are required to take some physics as well as 30 or more credit 
hours of mathematics. 



LAWRENCE J. PRINCE 
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Department of Mathematics 
Physical Science Building 



KANSAS STATE UNIVERSITY 

MANHATTAN, KANSAS 
66S0U 



February 27, 196U 



The following is a brief outline of my talk at the 1620 Users ' 
Group (Panel on Education), February 21, 196k, at Chicago. 

Kansas State University, a land Grant school, has approximately 
9000 students in a wide variety of curricula. Oar basic computer 
course, 2 hours credit, offered every semester, has an enrollment 
of 100 to lUO every time. Enrollment will be larger since the 
Engineering School is making the course mandatory. We teach peri- 
pheral equipment, then 1620 and lUOl-lUlO series. We stress flow 
charting, then some machine language, some S.P.S., and then 
Fortran. We use McCracken's book as text, with IB1 manuals, and 
we recommend Germain's book as well. 

The Business College uses Schmidt and Meye.rs as a text. 

We teach Scientific Computing Techniques, requiring differential 
equations and the basic course as prerequisites. Our text is Ralston 
and Wilf. In addition we have a number of computer-oriented courses 
such as our Numerical Analysis I, II and III and certain courses in 
Network Logic, Components, etc., taught in Engineering. 

Our staff consists of four regular faculty members, with half- 
time computing center appointments, a number of graduate assistants 
each one-quarter time, 2 1/2 key-punch operators, and a machine 
operator. 

Tours very truly, 



S. Thomas Parker, Director 
STPmv Computing Center 
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Resume of talk delivered at 1620 Users Group February 19-20, 1964 

by Roy F. Keller, University of Missouri 



The Computer Research Center of the University of Missouri is responsible for 
both educational and research computing. The computing facilities utilized 
are three (3) 1620 computers with one disk drive each and a 1410 system. The 
1410 is used primarily for business and hospital administrative activities and 
assembling of medical records. One 1620 is set up to serve most of the educational 
activities. 



At present the Wisconsin FORGO system is primarily being used for student problems. 
We hope to put FORGO into the monitor system. I understand Wisconsin is doing so, 
if possible, we will use their system. 



Courses presently being taught are: 
in Mathematics Department 



Math 104 - Fundamentals of Programming Digital Computers 
Math 323 - Numerical Analysis 

Math 423 - Advanced Numerical Analysis in engineering 

Fortran Programming 
Eng. 304 - Engineering Problems 

and in the Business School 

Accounting 101 - Commercial Programming (COBOL) (1410 is used). 



In addition to the above formal courses we have a series of lectures and workshops 
to acquaint faculty and graduate students with computing techniques. Both programming 
and use of library routines are discussed in these lectures and workshops. One of the 
most important requirements for a good educational program is to acquaint the faculty 
with computing. 
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A SURVEY OF THE BEGINNING PROGRAMMING COURSE 

Clarence B. Germain 
College of St. Thoaas 
February 20, 196U 

Last Fall, a questionaire was sent to the 280 schools which are members of the 
USERS Group. 175 schools responded. The results are tabulated on the following pages 

1. No allowance has been made for non- respondents. This does bias the results. 

2. Since the survey covers only schools having l620's, the figures for the end 01 
lS-6h do not reflect the influence of schools which will acquire their first 1620 
during the year. 

3. A suprising number of respondents gave incoaistent answers; e.g., they indicated 
floating-point hardware, but not divie hardware, or they indicated that 35$ of 
their students run their own SPS programs, while they taught SPS only to 20$ 

of their students. 

K. Figures for index registers, binary capabilities, and the 1627 plotter may not 
be indicative since the questionaire was circulated too soon after announcement 
of these features. 

5. Average enrollment in the beginning programming courses in 170 students per 
school per year. 

6. Many of the Model II l620's will supplement existing Model I's, not replace them. 

7. Relatively few schools indicated any plans to obtain the lU*3 printer. 

8. The disk units will more than double in popularity during l$6h with 1/3 of all 
schools having at least one disk unit by the end of the year. . 

9. While 3 /) of the schools offered no course involving Fortran, 35$ of the students 
were taught more than one version of Fortran. 

10. At the end of 1963, 51$ of the schools had the hardware necessary to run Fortran 
II; by the end of I96U, this figure will rise to 59$. 

11. 85$ of the students get "hands on" experience in running their own programs on 
the computer. This percentage is about the same regardless of what programming 
systems (SPS, G0TRAN, etc.) are taught. 

12. Jim Moore's Multi-Trace, 1.U.C03, was the most commonly mentioned trace program 
taught to students. However, 85$ of the schools indicated that they used no 
trace program in their courses. 

13. The figures for textbooks are for use in at least one course. Many schools use 
more than one text in a course. 31?' of the schools use only IBM publications 
as texts. While a wide variety of texts, many unrelated to either Fortran or 
the 1620, are in use, only four co;a,iercial texts and a half-dozen IBM publica- 
tions are used with any frequency. Of the non-programming type texts, numerical 
analysis books, particularly Stanton's, were most often mentioned. 

Ik. The textbook percentages i.i no way indicate sales of books; these figures are 

quite different from the percentages shown here and were not a part of this study 
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RESPONSES OF 175 SCHOOLS TO A SEPTEMBER 1963 Q'JESTIONAIRE 

Results are given as a percentage of the number of schools replying to the ques- 
tionaire. Probable errors do not exceed ±3£ except for items marked with an asterisk 
(*) where the probable error is less than ±8fo. Results are given for the end of l'X>3 
and for the end of 1964. Changes for I96U are only for equipment now on order. Slight 
discrepancies in the percentages are due to rounding. 



1620 Model: 
I 

II 



Special Features, Model I 

AFP, Div, IDA, Edit 31 31 

AFP, Div, IDA 3 3 

AFP, Div, Edit 

AFP, Div 1 1 

Div, IDA, Edit 31 21 

Div, IDA 1U Ik 

Div, Edit ■ 1 1 

Div 3 3 

IDA, Edit 1 1 

IDA 3 3 

Edit 1 1 

No special features 13 13 

Suotnary: 

Automatic Floating-Point 31+ 35 

Automatic Divide 82 82 

Indirect Addressing 82 82 

Additional (Edit) Instructions 6k 6k 

Storage : 

20K core, no disk k8 36 

UOK core, no disk 21 18 

60K core, no disk 17 13 

2 OK core, disk 5 12 

kOK core, disk k 9 

60K core, disk 5 9 

Input -Output ; 

Paper Tape only k k 

Peper Tape and Cards 10 10 

Cards only 86 86 

Magnetic Trpe U k- 

Paper Tape 13 I 1 * 

Cards 1622-1 83 8l 

Cards, 1622-2 13 16 

Cards, RPQ to read 800 cpm 3 3 

1UU3 Printer 8 

Disk, one or more Ik 3- 

1627 Plotter '* k 

1710 2 3 



Number of 1620' s in the school: 

One 9% 

Two 5 

Special Features, Model II (1964) 

Automatic Floating-Point bf. * 

Index Registers C* 

Binary Capabilities 5- 

Installations with Printer (Vj'jk) 

No disk 23* 

1 disk 15* 

2 disks 5*+* 

3 disks C" r 
k disks b* 

Type of Courses Offered: 

Both credit and non- credit 5 

Non-credit courses only 36 

Credit courses only 13 

No answer or no courses k~j 

Departments which of far courses: 

Engineering 1+0 

Education 1 

Mathematics **5 

Business 31 

Other ko 

Subjects Taught: 

Machine Language 32 

Operation of the Computer 66 

SPS 2, 

GOTRAII 17 

FORTRAN with F0R1AT 1*7 

FORTRAN II or II-D 33 

FORGO, etc. 35 

Use of some library trace 13 

Block Diagramming 63 

Monitor I '-> 
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]jisks • 

No disk 

1 disk 

2 disks 

3 d:\sks 

4 disks 

Hardware necessary to run: 
Fortran II only 
Fortran II and II-D 
Fortran II-D only 



86 
8 
5 

1 



37 



68 
20 

11 



1 



29 
19 
11 



Students are expectod to write and 
run the.i.r own programs using: 



SPS II 
GOTRAN 

FORTRAN with FORMAT 
FORTRAN Pre-Compiler 
FORTRAN II 



25 
15 
1*3 
26 
27 



Required or recommended texts: 
IBM Publications 



1620 Reference Manual 7k 

1710 Reference Manual k 

SPS Reference Manual 1*9 

GOTRAN Reference Manual 22 

1620 FORTRAN Reference Manual 6l 

1620 FORTRAN II Bulletin 38 

FORTRAN General Information Manual 23 

1620 Program Writing and Testing Bulletin 12 

Introduction to IBM Data Processing Systems 15 

Programming and Block Diagramming Techniques 12 

Commer c ial Publications 

Germain — Programming the IBM Io20 27 

I.eeson-Dimitry — Basic Programming Concepts and the IBM 1620 Computer 39 

Grui-nberger-McCracken — Introduction to Electronic Computers 6 

McCracken — A Guide to FORTRAN Programming 38 

Organick — A FORTRAN Primer 38 

Colman-Smallwood — Computer Language 6 

Smith-Johnson — FORTRAN Autotester 3 
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DATA PROCESSING TECHNICIAN TRAINING 
The Need; The Attempts; 
The Regaining Void 

Computers: Are the nucleus of an extremely large field of operations 
called Electronic Data Processing. All handling of information within present 
day large organizations must be done with the electronic computer in mind. The 
rate of growth of that organization, coupled with the rate of development of 
compact, fast, efficient, economical computers demands that any and all internal 
operations be designed with the computer as a possible, if not central, theme. 
Many more smaller organizations enter the field of computer operations each week, 
to say nothing of the acquisition of electronic data processing equipment on the 
part of larger corporations. Some of these companies decide to make use of 
computers because of profit motives. Others make the switch to computers 
defenisvely because their competition down the block has installed a computer. 
These basic reasons and many more subtle factors are at work in forcing businesses 
toward the world of Electronic Data Processing. 

Agility, ability, capability and speed of the electronic computers 
cause complete revamping cf internal operating systems. Even the word "Systems" 
takes on a different significance when used in conjunction with "Electronic 
Computers." Information processing n-ow has to be looked upon on the "Total Systems 
Concept, " that is, the processing, handling, generation, and analysis of data 
through a »ingle means; the electronic cctnputer. Stall centers of activity in the 
line of information travel, and for that matter entire lines of travel have been 
eliminated by the computer. The Total Systems Concept dictates a complete review 
and analysis of information reguirta.;ents, methods cf handling data, necessity for 
various reporting modes, lines of data movement and necessity for generation of 
information. The computers capability of retention of data in its original 
format in many cases completely eliminates the need for regeneration centers along 
the lines of information travel. The speed of operation and Mathematical as well 
as storage ability oftentimes promoted an entirely new system of operation. What 
before had to bo done because of pure necessity could now be accomplished "on 
line." Even "Empire Building" took a serious setback. These things were 

127 



Page 2. 

accomplished only if a concerted effort was made to get them accomplished. Only 
the foolish attempted to incorporate a cor.iputer as a single item part of an overall 
system now operating for the single purpose of getting a single job done. Foolish 
or not, this has often been done. 

Integrated computer operations demanded integrated personnel operations. 
People, or groups of people within an organization, that before never had any 
interrelationships now found themselves stumbling over one another wondering what 
next to be done. The Tabulating Department people on the one hand found that the 
Systems Department people on the other hand seemed to be working at odd ends with 
them. The computers promise of the sc far intangible brought about a coordinated 
effort on the part of these two groups. In fact, sane data processing people were 
even caught taking courses in Systems Analysis and vice versa. Most major computer 
installations today are rude up of two categories of personnel, Data Processing 
and Systems Analysis, working together quite harmoniously. Their accomplishments 
have been fantastic to say the least. But something is definitely lacking; a 
something which could and would provide so much store; a s cue thing which could and 
would reduce computer operational cost quite significantly. That southing is a 
single brain thinking and wrrking an integrated Data Processing, Systems Analysis 
approach. 

Simple economics demands that we now find personnel with bcth the Data 
Processing and Systems Analysis training and experience. The shortcomings of 
single field training when considering overall computer management are becoming 
more and more significant every day. There are several reasons for this, first, 
single field training limits on individual's approach, definition, and solution 
selection to a problem. Secondly, reduced cost of actual equipment negates the 
advisability of employing two to do the job of one. Thirdly, because of cost of 
operations, vision as well as practicality is required in the selection of fields 
of computer applications. Fourth, the smaller organizations cannot maintain high 
computer overhead cost. Fifth, from a profit standpoint, efficiency Bust be 
maintained in direct proportion tc capability of the equipment involved. 
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The demand for proper, effective training, therefore, is fantastically 
greater today than it has ever beon in the past and it continues to grow more and 
more with each computer installation. Far too often we in industry find that our 
present staff is not adequately cnpr.ble to provide our managements with the 
desired level of results from a computer operation. All too soon, we realize that 
the answer lies in integrated training, formally applied, and practical experience. 
All too soon, we realize that there is no source of supply for this category of 
individual. Training, therefore, becomes a major problem to us. 

Proper adequate training is the focal point of the single major problem 
of industry in the field of Electronic Data Processing. Training in the practical 
way of doing something has always been accomplished by a given organization within 
its own environment. Different companies within the sarae industry had much 
different ways of accomplishing the same thing, and, therefore, each organization 
trained its own personnel in its own way. Naturally, industry relied, and still 
does rely, upon formal education to provide the basic general concepts as well as 
related principles. Industry solved its training problem for the most part by 
setting up In-house, Qn-the-Job training programs designed to got the most for the 
least cost. Many times these programs were extremely limited in scope simply 
because of the fact that industry chose to use personnel with extremely limited 
backgrounds. Much of the reason for this was a lack of willingness to pay higher 
wages for lesser scale jobs. 

Profit motive restricted training to a MUST level and added none of the 
frills of peripheral, or related areas of training. The objective of "Adequate 
Button Pushers" seemed to be the most efficient level of in-house training. In 
reality, this is all that industry should be responsible for providing. In all 
categories of jobs, this in-house training was enough to allow profitable operation. 
Most jobs did not require a great deal of knowledge, if any, about the last opera- 
tion or the next operation in the line of process. It was only necessary for the 
individual to know his or her own special function. 

Until the computer came along this was a fairly satisfactory method of 
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training. The O-J-T approach was profitable from two standpoints, 
first, few dollars invested, seond, appreciably high production after training. 
Without having to be cognizant of the previous c;peration or the next operation to 
come, an operator could attain r.'.aximun production efficiently and quickly. This 
was true also in the Data Processing field. For the most part, training of 
personnel was accomplished in relation to operation of a specific machine or group 
of machines. Key punch operators learned to simply key punch and verify. Tab 
operators learned the operation of a series of machines, and in seme cases also 
learned to wire control panels for these machines. From a training standpoint, 
these data processing jobs were just as any other job in any cocipany, i.e., learn 
a specific process fur a specific operation without consideration of any related 
areas. 

Computers brought about the necessity for training even more categories 
of personnel. Systems analysts, programmers, coders, program librarians, informa- 
tion librarians, console operators, became new and imposing personnel categories. 
New, because they came in the front door just ahead of the computer. Imposing, 
because for the first tine a job category cine along that demanded an acute 
interest in what has happened bef* re "this operation" and what will happen after 
"this operation." No longer could an "operator" be trained to simply accomplish 
a single operation. Some system of training had to be developed which would allow 
these new categories to bo trained in a reasonable period of time and at reason- 
able cost. The on-the-job training approach again was utilized by industry in 
conjunction with short term courses put on by the manufacturers. Initially these 
two media proved to be just adequate. The only reason that they were adequate was 
that the personnel originally selected to enter the training pri.grar.is, and then to 
handle the computers, were personnel with long experience with the coiapany involved. 
The fact that they did have the company experience, and, therefore, knew the 
internal aspects of the organization quite intimately, allowed them to solve most 
all major problems without too much loss of tine or money. 

At the same time, these personnel were garnering the necessary hands-on 
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experience on the computer invcl/ed. This period of tir..e has been a substantial 
one. Setae of the early computers delivered tc the industries carte along in the 
early 1950's. The personnel selected for tho ca.iputer operations did through 
trial and error, and OJT rethods, finally attain a degree of proficiency in the 
handling of both the computers and the information involved. However, this took 
several years of hard work and a severe coi.pror.ise of original goals and target 
dates. 

Nomal attrition f._r various reasons dictated that en adequate attempt 
be made in-house to train replacements. The major problem here was one of time. 
Industry could not afford to invest three to five years of training for each of 
the replacements. Job attrition rate was far beyond this replacement rate. Some 
fast neans of training was absolutely essential. Here the question was raised, 
"Do we do this in-house again, cr do we gj outside for our supply of people?" 
Obviously, the in-house training cost nade another source of supply more desirable. 
What then was the source to be? Would the apparent returns A employment drew 
very many capable people into private training operations? Would, in turn, the 
private training operations prcvide adequate levels of relicble training for 
reasonable costs? Did any t raining facility, private or public have the necessary 
instructors availr_ble? What prt-yr.-ja would the industries have to undertake to 
attain good levels of education in the public school systems? Most major 
industries gathered t<xjether for the purpose of determining sur.'.e of the answers 
to nost of the questions. 

Many answers were found, and, as a result, many proposals by industry 
were made to education. .All of then were rebuffed for various reasons. In suiae 
cases, education administration personnel were willing to take on the responsi- 
bilities of these new requirements but could not find faculty to staff such an 
endeavor. More often than not, a n«<iative attitude on the pirt of administration 
personnel in public education resulted in industry going back to costly in-house 
methods. People in universities and colleges considered the field to be a 
vocational one and not an acadtaic one, and, therefore, it could not be touched 
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with a "ten foot pole," Tho people in vocational schools were all t a- willing to 
accept the challenge, but cumplstely negated the requirements of industry by 
telling industry that their desires for anything beyond the operator status were 
ridiculous, and, thereby, v^cati^nal education fell down on the job. Industry 
then racted in the negative quite violently. All proposals to education were 
withdrawn and in-house, expensive, time-consuming training was put into effect. 
In some of the more comprehensive of these programs, it was not at all unccumon 
to find the cost of training at the $30,000.00 to $40,000.00 mark. Time stretched 
out from the normal one or tw> month period to somewhere in the area of three to 
five years, with all its built-in ramifications. 

Public education finally entered the field of Data Processing on a late, 
meager, but welcome basis. First of all, the educators hed to be educated. Those 
administrators and faculty personnel of various public school systems who desired 
entry into the field of Data Processing had to leave their posts full time or at 
least part time to get a bit cf education themselves. The problems involved here 
were many and varied. The original estimates on the part of both manufacturers 
and users that at least a college degree in mathematics was an essential pre- 
requisite to computer operations was impressive and many university and college 
personnel took this to heart. Leaves of absence were granted to setae very few 
PHD Mathematics type people willing to expose themselves te the rigors of the 
industrial world. Others went to the manufacturers' short courses in specific 
operations tc acquaint themselves with some of the computer requirements. This 
training soon become pretty much of a bandwagon effort. If tho education people 
were at all interested, which they probably weren't, they tried to get on the 
bandwagon. Somehow they got themselves exposed to a course or two, and to a lot 
of conversation so th-vt they at least knew the terminology of the field. Because 
of the influence of the manufacturers initially, almost all first corners from 
education to the field of Data Pr^essing were in the mathematics area. To 
converse with these people on their own level, an attempt was made to train them 
in the finer arts of computer utility by moans of mathematical problem solution. 
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This, indeed, served its purpose, but it also ha:i socio very undesirable results. 
The first and mast important of these was to indefinitely postpone industry'* 
desire of Data Processing training. The reason was quite obvious, of course. 
Mathematicians would naturally eet up mathanatics type courses first, and perhaps 
other courses later. 

Educators frura other fields gradually came to either industry or the 
taanufacturers te gain sotaj insight into the world of computers. Sane went to the 
manufacturers for their short courses in specific operations and specific machines. 
Others left the field of education completely and entered industry bent on learn- 
ing all they could about the entire field of Data Processing, and then returned 
after several years to education to set up courses of their own in their own 
professional fields. Those that did return to education found themselves beset 
with obstacles sometimes insurmountable. Of these, many became disillusioned 
quickly and again left education. Of the few that were left, only a handful 
persisted in the efforts to establish the desired courses. The remaining group 
soon diverted their attentions from setting up courses desired by industry to 
setting up the courses which their particular administration happened to think fit 
well into the scheme cf every day living. For the most part, these turned out to . 
be personal research project type courses, unproductive and invaluable to the 
students that made the mist ike of taking them. Education became quite wrapped up 
in the business of trying to get scree decent courses established. Intermingled 
with this was the perscncl viesire of the particular individual instructor, and an 
unending avalanche of propaganda from any and all sources. 

Gradually, industry has lessened its requirements in the selection of 
personnel. This is due in most part initially to the fact that people with tx.iin- 
ing were simply non-existent. As industry accepted lower scale personnel, it 
became apparent that perh-.ps a Doctorate Degree in mathematics wasn't quite the 
most essential single pre-requisite. This feeling has suae how permeated into the 
education field until today sorvi of us feel that maybe even a lowly college fresh- 
man just night h:.vo a chance cf understanding computers, providing, of course, that 
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he first attain 20 years of experience and four college degrees. 

There is still a basic contradiction in the approach to the problem by 
educational personnel. The zeal on the pert of many educators to accomplish 
personal goals, as concerns computers, has caused many of these people to lose 
sight of their original purpose. Industry requests well-defined, practically 
orientei courses of training. Education has cone up with e hodge-podge of one- 
quarter courses which are, for the most part, unrelated and unguided. Some 
universities offer only one section of one course each year, and that course is 
usually nothing more than an introductory type of course. FORTRAN is often taught 
as the means of solving business problems. Systems courses can usually be defined 
as courses in machine capability rather than in their true light. 

This has been due in great part to the shortcomings of computer educa- 
tion of the educators. For purposes of quick exposure, each learned about computers 
in his or her own field. The mathematician learned how to solve math problems and 
never talked to the business department. The business people learned how to solve 
the accounting type problems and never talked to the engineering department. The 
engineering department people learned to solve the standard stress problem and 
never talked to the science department. The science department people learned to 
do some of their work on the computers and forgot about the rest of the campus 
crowd completely. Many and varied requests for equipment caae to the adminis- 
trators from all of these groups. Noun of these were coordinated nor even exposed 
to the scrutiny of any othir departments. People on the administrative staffs were 
rather prone to allowing each and every department to function independently as in 
every other facet of their operations. In many cases, it was a first-corns, first- 
served type of operation in the acquisition of a computer. The results were, of 
course, chaos in the selection, ordering and installation of both the "hunk of 
junk" involved, and also the courses decided upon by the powers to be to be offered. 
As is usual, a tremendous amount was left to be desired in setting up Data Process- 
ing education in our public school systems. 

The evolution of computer and data processing courses followed an almost 
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identical path in every case. First came the "hunk of junk." After some semblance 
of study within a particular department, a computer was ordered and installed. In 
general, there was very, very little coordination between the various university 
departments relative to how the cotaputer could be used. In general, there was 
always the stipulation on the part of the administration that it was to be used 
also for administration purposes. I am tempted to wonder if this is also true of 
the microscopies of the biology department, and the typewriters of the secretarial 
department and the football shoes of the athletic department. 

Next cone the exciting question, "What am I going to do with this crazy 
adding machine?" The individuals involved in the overwhelming task of convincing 
the administration to acquire a computer had spent all their tine in just that, 
and no time at all in the practical developnent of courses to be installed after 
the computer had been installed. The short space of time left in between final 
order date and installation date of the computer was not at all adequate for 
developing a good course of instruction on the machine. Result: an unrealistic 
approach of "Getting something together before the administration finds out." 
For the most part, this turned out to be a hurrodly put tot/ether FORTRAN course 
built on the notes frua the instructors own attendance at a manufacturer's short 
course. In Some cases, these even proved to bo enough to got through a full 
semester course. The main problem with this was the fact that this method was 
actually being used. Under the pretext of being too busy with other aspects of 
educational life, usually because the individual himself was still quite in the 
dark about what actually a computer was all about, the students were thrown the 
bone of sample problems from the manufacturer's course, while the Prof, went on 
his merry way trying to find out for sure just what did happen when a multiply 
ccaaand was given. Generally, being unf-rxailiar with a computer language, led to 
the development of many courses being put together on nothing more than machine 
language. Machine language and FORTRAN became the ever present by-laws and by- 
words. Many, in fact most, courses began and unded on this level. 
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Of particularly signif icant interest to industry wits' the mothod in which 
the computer itself was hruidlc- i within the school operation. There seemed to exist 
therein a fervent desire to restrain the stu..*--nt from ever having any contact what- 
soever, except by reference auriug a lecture, with the computer. Perhaps the 
administration was fearful of possible repair costs; perhaps the Profs, involved 
were afraid that the students would find out which were the right buttons to push 
before the Profs, did; at any rats, the actual operation of the computer center was 
built around a selected staff of graduate students who did all the actual opera- 
tions, processed any and all student programs, and laughed rather hideously when a 
logic error appeared in a student's work. The said port of all this was that the 
students never did get to find out what the computer really did look like, nor what 
it did while in operation. On-line diagnostics and debugging techniques were never 
even mentioned to the students for fear that some questions night be asked. Sadly 
enough, some of this was justified simply because of time. . It would be impossible 
to cram into a single quarter course any more than on exposure to a language such 
as FORTRAN and expect the student to get as far as writing -a single ^program. In a 
semester course, he might be expected to write two short prx^rans, punch them into 
cards or tape and just raayix; get ther.; intj the computing center. After All, this 
was more than the Prof, hr.d accomplished at the manufacturer's short course in 
slightly less tine. It is possible to accomplish only s^» nuch in a 60-hour 
quarter or 90-hour semester, and this was the only interest originally— the one 
quarter or one semester course. 

Unfortunately, this is still true of almost every college and university 
computer center in the country. Today's offerings in courses actually amount to 
nothing more than a conglomeration of od ;s and ends which, for the xaost part, 
reflect only the lack of knowledge on the p.rt _>f these setting the course up. 
The lack of truly diligent effort is a thorn in the side of Educition, 

Just as in industry, the computer on campus became a status symbol. 
Many schools began to wear it as a badge of some sort. Other schools without a 
computer soon found themselves in a race to the wire in acquiring a "hunk of junk" 
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and getting it into operation. It became very fashionable to be setting up 
"Comput ing' * centers; comput ing centers, not computer centers. The terminology 
was indeed indicative of understanding on the part of both faculty and adminis- 
tration people as regards the computer* place in industry. It was just another 
machine for the solution of a particular problem, preferably a mathematical 
problem. The true implication of the computer in the Modern business and scienti-? 
fic world was realised by only a very few across the country. These fee compre- 
hended the computer* ramifications, but they made the significant mistake of 
placing the "hunk of junk" on the "graduate school level only," and, thereby, 
effectively eliminated almost all students. The result could only be that of 
ineffective application insofar as tho general situation was concerned. Those 
most in need of exposure to computer education could not be exposed simply 
because they never got into graduate school. 

Again, we have the situation of a Machine language or a FORTRAN course 
for under-graduates, wherein a program was limited to being written, passed 
through the keyhole to the graduate student and the garbage results received back 
through the keyhole with a note telling the pcor freshman to do it over again. In 
most cases, even the graduate student on the inside nevor got to run any diagnos- 
tics of debugging on the prograri simply because he had nevor been taught to. 
However, they did get to help the Prof, while the Prof, was going about getting 
his own computer education, so they were able to garner s.me extra tidbits of 
knowledge regarding computers. 

This is where we stand in academic education today. The requests of 
industry have been forgotten or relegated to the area of unimportance, and most 
on -campus computers have been gobbled up by Profs, doing personal research for 
doctorate degrees while the only effective courses are on the graduate school 
level. In other words, almost t.*tal ineffectiveness. 
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The attempts of vocational schools and area technical schools have also 
been ineffective. The traditional approach of the v.x:ational school in training 
for a specific skill has resulted in just another series of "operator" type courses 
which industry has been able to supply for many years. Vocational schools have 
been successful to some degree in supplying industry with adequate input trainee 
personnel for specific job categories in the operator jobs. These personnel still 
had to complete in-house, on-the-job training after being hired by a company. 
True, because of their training in school, the in-house OJT training programs 
could be significantly reduced in length. 

Again a failure to comprehend the true ramif ic.-itions of computers within 
a business caused the vocational people to continue on their merry way setting up 
operator type courses in the various job cateogories of a computer center. All of 
these were specific in nature, that is, the Key Punch operator was concerned only 
with punching cards; the Tabulator operator was concerned only with processing the 
cards in a tabulator or sorter; the Computer Console operator was taught to push 
buttons and mount tape reels; and the Programmer was just another individual job 
concerned with writing instructions for the computer. None of these categories 
received any additional training -r even ex;. -sure to adjacent operational areas. 
Even the previous cr next operations were left out of the training courses. 

The stress on individual job categories by the vocational school people 
has relegated the programmer's job to that of just another operator in the cycle 
of business events. Again, this was due to almost tho same factors as those aris- 
ing in the academic world. Too little education on the part of faculty and 
administration led to impractical courses being set up. An unwillingness to admit 
that there just might be a need for education beyond just the "operator" level 
left all related course training out. In those most advanced schools, there setae - 
times appeared a course in nuitheiuatics t-. about the level of beginning algebra. 
Never did we find the area of systems being covered, f^i this was felt to be 
unrealistic, and, therefore, academic in scope. 
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Those courses in "Cmputer Programing" which were set up followed 
almost exactly the efforts within the academic world in doing the same thing. 
Short courses in the use of a computer language such as Absoluts and FORTRAN made 
their appearance, and were" handled in virtually the same way. After an exposure 
to a language, the student was expected to write a program and subject it to the 
processor by way of either the Prof, of his assistant. Almost invariably, what 
little hands-on experience that was provided was channeled only into the area of 
what buttons to push "to get the darned thing to run." All of these courses were 
set up on the "lab" basis, with little or no solid lecture content. For the most 
part, the instructor was a converted Business Education type person with a 
specialty of office machines or typing who had bean exposed to a short course at 
a manufacturer's school somewhere. The results again were very similar to that in 
the colleges and universities. The principal problem here was a reluctance to 
admit that any job could have implications or ramifications beyond its own seem- 
ingly icmediate scope. The administration and faculty people refused to even 
attempt to deviate from their sot ways of education and set up saw semblance of 
an adequate course in computers. 

This satisfied the requirements for "operator" type people but left the 
original problem completely unsatisfied. The so-called computer programmer was 
nothing more than a language coding clerk, lacking any and all knowledge of how 
to really put a computer to effective use within an organization. The Systems 
Analyst dealt only with the abstract it seemed, and, therefore, had no place in 
vocational education. Because of this, so-called programmer courses could give 
the student nothing more than a language background. The companies hiring these 
graduates found themselves right back whore they started with their own in-house 
OJT programs. The vocational schools did effectively provide input trainees for 
operator jobs, but left much to be desired when it cane to effective use of equip- 
ment within a Data Processing center. 

Computers and thsir effective use demand an integrated training program. 

In general, every business computer installation depends upon a staff of personnel 
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which has had a good academic background in a particular field such as Accounting, 
Engineering, Mathematics, Science, etc., and also a vocational skill training in 
machine use and operation. Industry has found that it wasn't enough to just be 
an accountant or engineer, a scientist or mathematician, just a systems analyst 
or programmer. It wasn't enough to have just a high school education followed by 
quicky type operator courses. It wasn't enough to have an exposure to a quarter 
course in a computer language. It wasn't enough to approach a computer with simply 
problem solution in mind. Somehow the benefits of college or university academic 
training had to be molded together with hands-on vocational training into a useful 
level of competency and judgment. The far-reaching aspects of every computer 
application made it very desirable tc provide the type of training which would 
allow the individual to make the utmost use of a particular "hunk of junk." 

During the last two to three years, it has become more and more apparent 
that more than one academe field had to be included as well as more than one type 
of computer training in any effective computer course. In addition to accounting, 
some mathematics, English, and statistics were very necessary. In addition to an 
exposure to computer programming via learning a c -iaputer language, a background in 
problem analysis and solution, in Symbolic language as well as FORTRAN, in hands- 
on debugging methods as well as desk checking were all vitally necessary. 

Computer operations training was the immediate concern, and primary 
courses had to be directed toward this end. However, the larger aspects of 
computer ability had to be made the g^al of all training. Somehow the Methods 
Analyst, Systems Engineer, Computer Programmer, Data Processing Manager, 
Controller, Accountant, Sales Manager, Production Superintendent, Factory Foreman, 
Inventory Clerk, Grounds Keeper, and Gcrbage Collector had to be rolled up into a 
single individual via an effective training program. 

From a practical standpoint, this conglomeration of far apart fields 
had to be rolled into one, but this isn't quite possible within the short periods 
of time available for training. Still it is apparent that quite a different 

emphasis in traininy is required. Rather than being just another tool or method, 
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the computer his become the center of operations affectiny all other departments 
of an organization. No single operation escaped the inevitable scrutiny of the 
computer. Training, therefore, had to include all possible fields of endeavor, 
so as to provide the comyutc-r personnel with as broad a scope as possible to enable 
them to make sound decisions. Exposures to other fields had to be realistic and 
sound as well as effective, but these exposures had to be made within realistic 
tiue allocations. 

The -pressure of telescoped tine has not allowed industry the luxury of 
retraining elder staff numbers. Though these personnel had extremely good know- 
ledge of the organization, it often required more time than we had available to 
briny then to a point of .competency in computer utility. Additional personnel 
with "Wide angle" computer backgrounds had to be discovered and acquired. Most 
of these came from the fields of either Data Processing or Systei \s Analysis, but 
even these did not have the proper backgrounds of nutliple field. The greatest 
deterent to these in acliraatizing themselves to computer operations was pro- 
fessional prejudice. Until computers^ these two fields stood at odds with one 
another. This factor became a serious restriction to further development within 
the computer field. 

The two year Data Processing Technician Course scums to offer some 
indication -of an adequate answer to the problem. The integration of all the 
required facets into a single applied course can, of course, be the only true 
solution to the problem of acquisition of trained, capable personnel. This is not 
going to take place very soon because of some of the reasons already mentioned. 
In the meantime, some adequate substitute must be found. To ask industry to 
continue their own extromoly expensive training programs is not realistic. In the 
first place, this is far too expensive a mode of training. Secondly, it is 
unrealistic in the consumption of time. 

Developments in the field of computer utility arrive so fast and in such 

quantities as to render ineffective any long range in-house, on-the-job training 

program. Industry training programs are usually based on a set way of doing 
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things which is expected to. continue as the way of. doing things for many years to 
come. In computer operations, this is n<_t at all true. Yesterday's method: was 
ancient history as soon as it was used. Today's method will be outmoded before 
the job is done tonight. Tomorrow's method is already gatnering pale, green mold 
of disuse. 

As an intermediate solution to the problem of providing industry with 
adequate input personnel, the two-year technician program has been suggested and 
put into use. These, too, have fallen into the same traps for the sane reasons 
as the academic courses and the vocational courses. The reason for this is 
obvious. The very same faculty and administrative people are making the very same 
unintelligent decisions about this course curriculum and setup. 

During the last two to three years, there has taken place a great rush 
to "get on the Data Processing bandwagon." Unfortunately, the depth of sincerity 
here seems to go only that far. ?Vjain we find unacquainted administrative 
personnel and untrained instructor personnel attempting to set up and teach a 
totally unfamiliar curriculum. For the most part, these attempts have been made 
in junior colleges and vocational schools on a post high school basis. In almost 
every instance a basic two year curriculum, suggested by several of the manu- 
facturers and approved by the U. 3. Department of Health, Education and Welfare, 
has been the sum and substance of these attempts. These suggested curriculums had 
been set up on a purely theoretical basis, and had not been put into practical 
operation before being foisted upon an unsuspecting education group. Perhaps in 
awe of the suggesting body, perhaps for lack of personal knowledge, perhaps for 
desire to be "one of the bunch," education accepted these curriculums and attempted 
to do their best at training people in Dnta Processing, without first doing any 
extensive exploration of the curriculum. 

This is the point at which the most significant of failures occurs. 

Scrutiny of the suggested curriculums by those in Data Processing management 

positions in industry would perhaps have pointed out some of the most glaring 

inadequacies. Some of these are: first, a purely theoretical approach to subject 
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matter without adequate experience emphasis; second, basic courses being taught 

last in sequence, with advanced courses cawing first; third, emphasis on language 

cccmunications with the machine rather than a solid foundation in machine operation 

characteristics; fourth, relagation of the Data Processing courses to a status of 

just another course rather than a status of core course. 

As an example of this, let us examine the most cor.jnonly found curriculum. 

It is set up as follows: 

First Year First denester Second Semester 

Credit Hours Credit Hours 

Data Processing Mathematics I and II 2 4 

Accounting I and II 4 4 

Communications I and II 3 3 

Basic Computing liachines 3 

Unit Record Machines 5 

Data Processing Applications 3 

Introduction to Programming Systems 4 

Second Year Third Semester Fourth Semester 

Credit Hours Credit Hours 

Computer Programming I and II 5 5 

Social Science 3 
Statistics 3 
Business Organization 3 
Cost Accounting 3 

Systems Development and Design 3 
Advanced Computing & Programming Systems . 3 
Data Processing Field Project 6 

An examination of the c jntent of each >f these Data Processing cc-urses generally 

reveals the following course descriptions: 

BASIC OCtiPLTIKG- i-ACHINES. This is a survey course of co;xion fundamental concepts 
of data processing systems. It describes the evolution of computer systeiu3--f rja 
manual to stored progr.au methods. 

UNIT RECORD MACHINES. This course is a survey of unit record equipment. It illus- 
trates the need for iaachine-pr-cessable solutions to accounting and recordkeeping 
problems.. Laboratory problems include wiring of control panels. 

DATA PROCESSING APPLICATIONS^ This course is designed to acquaint the student with 
actual business data processing applications. The student learns through lecture 
and case studies to apply the data processing equipment previously studied to 
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various applications. Through this study, the student gains an understanding of 
how machines and systems are c imbined, and the advantages of mechanization. 
INTRODUCTION TO PROGRAMMING oYUTtfiS. The basic c-ncepts of prograra.-.ing ayatana 
are taught in this course. During this class, the student becomes aware that 
programming systems are as important as the machine hardware. This course famili- 
arizes the student with the purpose and function of tne various types of program- 
ming systems or languages. 

COMWTER PROGRAMMING. The B:sic Computing Machines course in the first semester 
provides the theoretical basis for detailed study of data processing machines in 
this course. Programming drills, case studies and exercises serve to bridge thm 
gap from the theoretical to the practical use of data processing. The two hour 
per week laboratory sessions provide further reinforcement of basic principles by 
providing "hands-on" training. The FORTRAN language is the mam media of train- 
ing, while the student is introduced to iiachine Language and Symbolic Programming 
Systems, 

SYSTEMS DEVELOPMENT ,JiD DESIGN. A survey course discussing the effective use of 
data processing equipment in meeting the inf crmation needs if business. The course 
is designed to guide the student through the various stages of system development. 
ADVANCED COMPUTING ;>ND PROoR.ilSING SYSTEiS. The objective of this course is to 
provide the student with sufficient knowledge of programming language concepts so 
that he may easily master any specific system with a minimum of instruction, 
Actual programming languages are not taught. However, individual phases of certain 
selected language systems are treated in detail in order that the student may learn 
advanced programming language techniques contained in sophisticated systeaa. 

Let's examine these courses a little more minutely frcr.i the standpoint 
of "what is being taught when." In the first semester we have two parallel courses, 
Basic Computing Machines and Unit Record Machines. The Bosic Computing Machines 
course is almost always a pure theory curse examining the various styles and 
types of machines. Little or no off rt is ra?.de to acquaint the student with the 
methods of problem solution required by each of these types of machines. Since 
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this is usually a three hour per week course, there is really no time to go 
beyond a torn definition stage of learning. The Unit Record Machines course is 
a little now definitive in that the student dees get some "hands-on" experience 
in control panel wiring. This, too, is very limited since thu five hours per week 
during one semester must be spread over several types of Machines and all the 
punched card processing philosophy involved in each of them. The student receives 
a total of about 20 hours per machine type. Certainly not enough even to complete 
the acquaintanceship status of knowledge. 

The simple fact that these two courses are so drastically limited in 
scope negates their desirability as foundations for further data processing courses. 
The Basic Computing Machines course should have as its prime objective teaching 
the student the various methods of problem solution used in the various types of 
computers. Since problem solution is really the prime consideration of all sub- 
sequent courses, and all activities involving computers, it would be far more 
desirable to teach this topic rather than mechanical configuration and operation 
in the initial course. 

During the second semester, the student is exposed to something called 
Data Processing Applications. During this course, he "learns through lecture and 
case study to apply the data processing equipment previously studied" to business 
applications. This is all well and good, but since the Basic Computing Machines 
course did nothing more than acquaint him with mechanical configuration, this course 
will still leave him asking "how, what, where?" This course would be infinitely 
more appropriate were it taught following some exposure to practical prog ramming 
experience. At least, then the student would have some means by which he could 
relate the machines to the applications. Far too many students and graduates come 
to industry knowing all about computers or language systems, but are unable to 
put this knowledge to work on a practical application. 

Also, during this econd semester, the student is subjected to a course 

called "Introduction to Programming Systems." This is basically a course which 

examines the various types of programming languages. It is on exploration of the 

JV3 



© 



Page 20. 

"software" wherein the student "becomes aware that progranning system* are as 
important as hardware." Again, this course is pretty much a theoretical one with 
little or no practical programming experience. For the most part, the languages 
generally discussed are not a part of the software package of the computer which 
is installed. Here again, the studant is left wondering "what to do with it" 
as concerns all of these languages. 

So far, two full semesters have gone by and the student still hasn't 
"soloed" on the computer." He has still to write his first practical problem and 
run it on the computer. It would seem to be an awful waste of time. 

Finally, in the third semester, a course called Computer Programming I 
shows up. Welcome at long last, even though it falls far short of its rightful 
goal. During this course, "programming drills, case studies and exercises serve 
to bridge the gap from the theoretical to the practical." This objective is 
perhaps a sound one, but since the FORTRAN language is generally used, with only 
an exposure to Symbolic and Machine Language, it is doubtful that it can ever be 
reached. The FORTRAN language still gives the student no insight into data 
manipulations within the machine. FORTRAN does not allow on-line debugging and 
diagnostics. FORTRAN does not even allow the student to develop his own program- 
ming logic techniques. F0RTR.'Ji linit3 him entirely to a rigid set of rules 
evolved from scroeone else's logic. In th.se courses wheru llccliine language is 
taught as the basic media, the student is severely limited by the clerical 
activity involved, and also by the fact that only relatively simple problems can 
be attempted. We find, therefore, that in the third semester when the student 
should be at an advanced level, he is in reality just beginning. An examination 
of the number of computers installed and in use reveals that approximately 95+1 
are used in business type operations. Why then use a mathematical language such 
as FORTRAN, with all its inherent restrictions and Imitations, as a training 
media? Why not give the student the type of training which is going to equip him 
for 95% of the job market? 

In the fourth semester, another course is given in Programaing Systems. 
/V6 
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This usually is a survey type course designed as an extension of the introduction 
course given in the second semester. These two courses could well have been 
combined into a single course during this seiaester. By the tii.ie the fourth 
semester has begun, the student is just barely capable of making effective use 
of the high-powered languages usually discussed in this course. The philosophy 
of operation involved in COBAL, nlGO and some of the other more sophisticated 
languages are beyond practical comprehension until the student has had an adequate 
exposure to manipulation of data through the use of some lessor language system. 
The third semester course in computer programming will accomplish this to a certain 
degree, but places the second semester course, "Introduction to Programming 
Systems," in a wasted status. 

The "Systems Development and Design" course in the fourth seuester is 
a practical one, though it comes a little late. Far more emphasis needs to be 
placed on "the effective use of Data Processing equipment in business needs." 
This theme must effectively be built into each and every segment of each and every 
data processing course beginning with the very FIRST day of instruction. Without 
this, the student in his theoretical surroundings lose3 sight of the practical 
application cf what he is studying. 

Because of the inadequacies of suggested and adopted courses, a new 
approach to course setup and content had to be taken. At Hibbing, we first tried 
to determine what type of individual was really in demand by industry. It was all 
well and good for us to listen to the claims of almost everyone that the field 
of Data Processing was one of nnlimited opportunity and a never-ending sponge 
which would gather up any and all graduates of any and all types of courses. 
Having spent a few years in the business world, I found this quite hard to believe. 
We spent a great deal of time and effort finding out what we believed in from the 
first— that not Just any eld one-quarter course approach would suffice; that some- 
how, we would have to begin at the level of a good workable computer language from 
both the practical and educational point of view and go on from there. 

Realizing that we had opened the door to a vast area of extremely hard 
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work, we went about tho task of developing our core courses. After much serious 
investigation as to where the computers were being used, we decided to place the 
emphasis of our core courses on business applications. We, therefore, asked our 
college instructors in Accounting, Mathematics, Economics and English to put 
together a group of integrated courses sufficient to support an intensive level 
of training in Data Processing. 

All courses developed wore to be integrated with the Data Processing 
courses. The problems discussed in the Accounting and Mathematics courses were 
to be discussed from an integrated computer operations point of view. The 
Contnuni cat ions English courses were to emphasize public speaking and technical 
report writing, with Data Pr-cessing applications as topics. These courses were 
accelerated versions of the same basic courses taught in our Junior College, by 
the sane instructors, but with a much different objective in sight. The level of 
training, therefore, was intensive, but it was also very well directed along the 
Data Processing lines. 

The Data Processing courses, built around the IBM 1620 computer and 
IBM 407 accounting machine emphasized a total integration of Computer Programming 
and Systems Analysis. No problem was to be discussed in the Data Processing 
course grouping without a thorough investigation of all the systems reamif ications 
of the problem. In this manner, we hoped to be able to acquaint the student to a 
good degree with all factors involved with a particular type of problem, and not 
just with "a typical prograraming"approach. The significance of the several means 
and methods of problem solution was also brought to the student in the discussion 
of each problem. 

Early examination of the field of data processing showed that a parti- 
cular type of person was in great demand. This was a person with more than just 
an exposure to machines and computer programming. This was a person with sound 
fundamental training in Business courses and more than just an acquaintance with 
Systems Analysis and Procedures. This was a person capable of evaluating the 

relative costs of several methods of problem solution and data handling and able 
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to make a sound, profitable judgment and decision. This was a person capable of 
more than just console operation, cr debugging through a list of error codes. 
This was a person who looked at evory data processing problem through two sets of 
eyes, those of the Systems Analyst and those of the Data Processing Technician* 

To achieve satisfactorily the gor.l of training this person, we put 
together the following curriculum. 

Hours per week Semester Total Semester 



Course Title 


Lecture 


Lab. 


Credits 


Class Hours 


First Semester: 










Principles of Accounting I 


4 


4 


4 


144 


Data Processing Mathematics 


2 


2 


2 


72 


Introduction to Computers 


3 


2 


3 


90 


Unit Record Equipment 


4 


4 


4 


144 


Cocmunications English I 


3 


2 


4 


90 




16 


14 


17 


S40 


Second Semester: 










Principles of Accounting II 


4 


4 


4 


144 


Data Processing Mathematics II 


4 




3 


72 


Communications English II 


3 


2 


4 


90 


Coiaputer Programming 


8 


5 


8 


234 




19 


11 


19 


540 


Third Semester: 










Cost Accounting 


4 


1 


3 


90 


Hunan Relations 


4 


1 


3 


90 


Business Organization 


4 


1 


3 


90 


Data Processing Applications 


4 


4 


4 


144 


Introduction to Systems 


4 


3 


4 


126 




20 


10 


17 


540 


Fourth Semester: 










Systems Development 


5 


5 


5 


180 


Advanced Programming 


5 


5 


5 


180 


Data Processing Field Project 




10 


5 


180 




To 


20 


15 


540 


Totals 


1170 


990 


68 


2160 



Beginning in the first semester, our individual Data Processing course 



content is as follows. 



UNIT RECORD EQUIPMENT. This course examines the use of most unit record punched 



card machines including the key punch, verifier, sorter, reporiucer, collator and 



accounting machines. Heavy emphasis is placed on proficiency cn the IBM key punch 



and verifier, and on complex board wiring for both the 085 collator and the 407 



accounting machine. Forms design for both card formats and printed output is also 



thoroughly covered. This course forms the basis for all future laboratory probl- 



lems in that the student must wire all necessary control panels for each machine 
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used in any laboratory problem solution. 

INTRODUCTION TO COMPUTERS. This course is the key to success or failure in 
computer programming. This course is divided into three major segments each of 
which covers a single basic type of computer. These are Disk -Drum type machine, 
the Core-card processing machine and the Core-Iiagnetic Tape machine. The logical 
approach to problem solution for each of these basic machine types is stressed in 
this course. Flow charting and detail block diagramming of problem solution 
becomes the student's central concern. The laboratory portion of this course 
consists of setting up the IBM 1620 computer for problem processing and of console 
operations using 1620 user-group library programs and probltoas for these programs. 
COMPUTER PROGRilflilNG. This second semester course in IBM 1620 computer program- 
ming forms the solid foundation on which all future programming courses are built. 
This course has the two-fold objective of teaching the student c>xnputer program- 
ming techniques, and of acquainting the student with how a computer is used in 
business through carefully developed laboratory problems. The first three weeks 
of this course are devoted to the Absolute Machine Language of the 1620 coiaputer. 
Basic techniques of on-line debugging are also stressed during this period. The 
remaining 15 weeks of this course are given over to the use of the 1620 Symbolic 
Programming System Language. Business problems of increasing complexity are 
handled as the course pro-jresses. With each problem, the significance of the 
computer relative to overall systems and procedures is stressed to the students. 
The laboratory problems are designed to extend and reinforce the basic computer 
logic ideas covered in the first semester as well as to develop proficiency in 
1620 computer programming. 

DATA PROCESSING APPLICATIONS iYND INTRODUCTION TO SYST£fcS. These two parallel 

third semester courses bring to a practical working level all the principles of 

Computer Programming and Systems and Procedures learned in the second semester. 

The student continues his Syrabulic Programming with each laboratory problem, but 

he now expands his operations by developing the source and handling of all data 

for a particular problem. For each laboratory problem, the student develops a 
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complete system of information handling culminated by a complex computer program 
necessary to arrive at desired results. Complex applications such as incentive 
payrolls, complete accounts receivable processing including aging, inventory 
processing and item use and scrap analysis, general ledger and other integrated 
systems of information handling. The student also designs and develops any and 
all necessary documentation of the system including both manual and machine 
operations. The stress in these two courses is on polishing computer programming 
techniques and acquiring practical system and procedures knowledge. 
SYSTEMS DEVELOPMENT given as a fourth semester course continues the third semester 
Introduction to Systems course with heavy emphasis on the total systems concept 
and the development of systems and procedures throughout an organization which 
will support the necessary profitable operation of a computer. Discussions and 
laboratory problems include practical exposure to PERT and Critcal Path techniques 
both on and off the computer, in addition tc standard systems of Information 
Retreival. 

ADVANCED PROGRAMMING in the fourth semester consists of IBM 1401 computer Symbolic 
Programming training. Most basic laboratory problems from the second and third 
semester Programming and Applications courses are reviewed and 1401 programs are 
written and tested solving these problems. FORTRAN is also taught during this 
course. 

DATA PROCESSING FIELD PROJECT during the fourth semester consists of the student 
actively engaging in shop operation of a local area data processing department of 
local industry. During this period, the student selects an information system whic 
he completely documents and programs for the cnaputer. His solution must be one 
which is better than the system in operation which he selects to study. 

The objective cf training Data Processing technicians dictated the 
attainment of a thorough knowledge of computer operations. To achiave our desired 
•nd, we decided early in our investigations that we would utilize the Syir\bolic 
Prograuaing Language as our major computer instructional tool. Our foundation was 
to be thorough understanding cf internal data handling by use of Absolute Machine 
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Language. The relative advantages and disadvantages were thoroughly explored and 
the decision for Symbolic Language was based upon the primary requirement of solid 
understanding of the internal capabilities of the equipment involved. All labora- 
tory problems were designed with hands-on assembly, testing, debugging, and pro- 
cessing as a significant part cf the problem. A requirement for thirty clock 
hours of solo time on the 1620 computer by the end of the second semester became 
a mandatory objective, "Console Confidence" could be attained only through 
personal contact with the machines. Mastery of the FORTRAN Language was also 
included in the curriculum, but as a secondary rather than primary language. 
FORTRAN programming, as well as 1401 Symbolic programming was included in the 
fourth semester area of the course, A course in Systems Analysis was designed 
which emphasized methods of data, handling outside of, but orientated to computers. 
The how to do it approach of integrated data flow operations was tied in directly 
to a computer program to solve a given problem. In all cases, the discussions of 
various problems included and revolved around the ramifications of a computer in 
the systems area. Topics in the Data Processing group of courses ranged frcea 
simple payroll type problems to integrated general ledgers; from production control 
to sales analysis; from historical records to operational research; from informa- 
tion retrieval to business simulation. All of these topics were arranged with two 
things in mind; first, the how and why of computer solution; and, second, the 
method of programming the problem within the computer. 

In all computer applications, each student was required to do his own 
on-line debugging and diagnostics. Each laboratory problem required the sub- 
mission of a written report on the problems which the student had encountered while 
solving the problem. This technical report 'had to include a complete explanation 
of the programming method used, the assembly and processing techniques, and the 
Diagnostic and Debugging procedures utilized by the student. The original 
objective of the overall outlook and integrated problem solution techniques were 
repeatedly brought to bear in each of the courses. Various systems and procedures 
of approach were explored with eich laboratory problem, and students were each 
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encouraged to attempt different ciothods of arriving at a solution to the parti- 
cular problem. No two like solutions were to be accepted in the computer program- 
ming phases and systems phases of the course. Individual thinking and exploration 
was thus encouraged to the utmost throughout the course structure. Failure on the 
part of the faculty to foster and nurture this aspect of student development 
would in reality be a failure of the entire course structure. The two year pro- 
gran is not the answer to the problem, and will probably soon be outmoded. The 
two year program came about as a stop-gap measure necessitated by the inadequate 
fumbling s of colleges, universities and vocational schools. To date, only meager 
attempts have been made to provide integrated training. Most of these have been 
of the too little, too late variety. Most courses of any value are on the gradu- 
ate school level, where most students nevor appear for training. Courses on the 
undergraduate level are ineffective because of too narrow scope and FORTRAN type 
approaches. Much hard work remains to be done in course development before uni- 
versity, college and vocational school programs offer the type of training 
necessary to provide industry with adequate input personnel. Without this course 
development work, all such programs will ba nothing more than a waste of time and 
money. Universities, colleges and vocational schools must bring thewselves to 
recognize the fact that computers have become a factual way of life for both 
organisations and personnel. Without this. Education can never hope to catch up 
to the world of reality. Where does your program stand? 
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INTRODUCTION TO MATRICES 



Charles E. Maudlin, jr. 
University of Oklahoma 



Intended for users with no knowledge of matrices and little background in 
mathematics. What a matrix is, matrix operations, singular matrices, how 
errors arise in matrix operations. Example of matrix inversion by 
Gaussian elimination. 



In working with simultaneous linear algebraic equations, it seems reasonable 
to work with the coefficients only. For example, in the system 

X + 3Y = 4 
2X - 9Y = -7 

We would expect to find the solution values by some set of operations on the 
numbers 

1 3 4 
2-9-7 

Indeed we would expect to find the same solution values if the equations were 

a - 3b = 4 
2a - 9b = -7 

It now seems reasonable to make the following definition: 

A rectangular array of numbers is called a matrix . 

Ex. : 



The size of a matrix is characterized by the number of rows and the number of 
columns. 

2x3 

A matrix consisting of exactly one row or exactly one column is called a vector . 
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a- denotes the element in the i-th row and j-th column of a matrix. 



a. denotes the i-th element of a vector. 




A are 



equivalent symbols to denote a matrix. 

Definition: Two matrices are equal if and only if they have the same size and 
correspondingly placed elements are equal. 



We will define a multiplication process by introducing the concept of linear sub- 
stitutions to matrices. Suppose we are given the set of equations: 

3x + 2y + 7Z = a 
2x - y - 3Z = b 
x + y + Z = c 

In matrix form this looks like: 



3 2 7 




X 


a 


2 -1 -7 




y = 


b 


- 1 1 il 






c 



For the present, this means: 

^coefficients} x |x' s, y 1 s, a- ' sj = £a's, b's, c'sj 

Later we will show that the form used is consistant with our definition of 
multiplication. 



Now suppose further that: 



2u 



= x 

= y 



or in matrix form 



3v 



r ~1 

1 1 

2 -1 

1 -3, 





' 1 






X 


u 










y 






z 



(2) 



-2- 
/55 



It would not be very helpful to use this thing called a matrix unless we could 
substitute from equation (2) into equation (1) and obtain 



3 2 7 
2 -1 -3 
1 1 1 



1 1 

2 -1 
1 -3 



(3) 



We would also like to believe that this represents the same relationships that 
would be obtained if we had performed the actual substitutions and written the 
results in matrix form. The steps in making the substitutions are: 

3(u+v) + 2(2u-v) + 7(u-3v) = a 
2(u+v) - l(2u-v) - 3(u-3v) - b 
l(u+v) + l(2u-v) + l(u-3v) = c 



(3- 


1 + 2 


2 + 


7- 


l)u + (3- 1 +2- 


(-U+7- 


(-3))v = a 


(2* 


1 - 1 


2 - 


3- 


l)u + (2- 1 - 1- 


(-1) -3- 


(-3)) v = b 


(1- 


1 + 1 


2 + 


1- 


l)u+ (1-1 + 1- 


(-D+ 1- 


(-3))v = c 






14u 




20 v = a 










-3 u 


+ 


12 v = b 










4u 




3 v = c 







(4) 




(5) 



We want (3) and (5) to say the same thing. Multiplication will defined so that 



n 


2 7 1 




14 -20 


2 


-1 -3 




-3 12 


1 


1 L 


L 1 - 3 J 


4 - 3_ 



By examining (4), we can see the manner in which the product matrix should be 
formed. 



(a) Each element of the product matrix is the sum of three products. 

(b) Each product contains one factor from the left matrix and one from 
the right. 

(c) Elements of the i-th row of the product matrix are formed from 
elements of the i-th row of the left matrix. 

(d) Elements of the j-th column of the product matrix are formed 
from elements of the j-th column of the right matrix. 
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If aj. , bjj and cj. are typical elements of the matrices A, B, and C where A is 
the Original coefficient matrix, B is the substitution matrix and C is the product 
matrix then 



3 

*J k=l l k K J 



, kj i = 1, 2, 3 j = 1, 2 

In general: IF Aj. x g - and B g x t are multiplied, the result is given by 

s 

A_„ c B„_ t = C . C; =,Z, a, b, , i = 1 , 2, • • • , r , i = 1,2, 
txs sxt rxt j ij k= 1 lk j 



Notice that matrix multiplication is not defined unless the number of columns of the 
left matrix equals the number of rows of the right matrix. Even when such multi- 
plications are defined, it is not true in general that AB = BA. Examples: 



1 2 

3 4 

1 -f 

2 



41 0K 3 K-j 

:5.D d ^ - do 

1 ol 

Is -jJ = U -D 



1 2 

. 3 4 J 

D H 

I q Q £j is not defined 



When the multiplication is def ; ned 



A (BC) = (AB) C 



The proof is omitted here but it can be shown to be true by applying the definition 
of multiplication twice to each side to determine the typical element. 

We can see that our original matrix equations are cofisistant with this definition. 

A square matrix with 1 ' s on the diagonal and zeros elsewhere is called the 
identity matrix. If there are n rows and columns, it is denoted by In. When no 
confusion is apt to arise about size, the subscript is dropped. 

Thm For every matrix A, AI = A and IA = A (The size of I may have to be 
adjusted if A is not square). 

Proof Let (a- ) = A , (b: ) = I then b- = unless i = j and b ; ; = 1. 
ij' ij' ij 

consider a typical element in the product AI: 

S a;, bu- = a;. The only term in the summation that survives is the 

one for k = j (otherwise bj^. = 0). 

This leaves a ; . b.. = a- } 1 = a; . 

X J JJ X J J 
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The other half of the theorem is proved in an analagous manner. 

For some matrices A, there exist corresponding matrices B having the property 
that AB = I. When this occurs B is said to be a right inverse of A (A is a left 
inverse of B). If A is square then AB =BA = I. B is the inverse of A and is 
usually denoted by B = A . Just statement - no proof here. 



A diagonal matrix is a square matrix with all non-diagonal elements equal to zero. 
The identity matrix I is a special case. 



1 



















is a diagonal matrix 








-I 





The multiplication of a matrix by a number is called scalar multiplication . The 
multiplier is called a scalar and the product matrix is obtained by multiplying each 
element of the original matrix by the scalar. 

fl 2 3| pf 14 2l"J 

IF A = 6 5 4 then 7A = A7 = I42 35 lA 



Incidentally, the elements of a matrix are scalars too. 

A scalar matrix is a diagonal matrix with all diagonal elements equal. 

The identity matrix is a special case. 



3 
0-3 
0-3 



is a scalar matrix 



For every square matrix A and every scalar matrix S of the same size AS = SA. 
When the terms are defined (AB) 



B^A- 1 



(Va 1 ' 



[ )(AB) =j7B" 1 A" 1 )AjB=jB- 1 (A" 1 AT]B = (B _1 B) = I 
so (B _1 A _1 ) is the inverse of (AB) 



Addition of matrices is accomplished by adding correspondingly placed elements. 
It is obvious then that the matrices myst be of the same size. 
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A + B = C if c = a H + b- 
l j l J *j 

17 2 3] + 17 -Tl = j2* 2 Tl 
[6 5 4] [2 1 2j"|8 6 bj 

Properties of addition: When the operations are defined: 

(1) A + (B+C) = (A+B)+ C 

(2) A + B = B+A 

(3) A + Z = Z+A = A (where 2- is of proper size and all elements are zero) 

(4) For every matrix A there is a matrix B = (-1) A such that 

A+B = B+A =0. B is usually denoted by -A. 

When the operations are defined A (B + C) = AB + AC 
and (A+B)C = AC + BC. 



Suppose we are presented with matrices A. r , B, _ , C- -, and we wish to 

3x5 -> x ' 5x( 

determine D= A (B+C). The following computer program will accomplish this. 
The matrix B will be lost in the process. 

C SAMPLE PROGRAM 
C 

DIMENSION A(3,5),B(5,7),C(5,7),D(3,7) 

C 

C FORTRAN II I/O BECAUSE ITS SHORTER 
C 

READ 1,((A(I,J),J-1,5),I-1,3 
READ 1,((B(I,J),J-1,7),I«1.5 
READ 1,((C(I,J),J«1,7),I=1,5 

1 FORMAT (5E15.8) 

C 

C NOW TO ADD B AND C 

C 

DO 2 1-1,5 
DO 2 J-1,7 

2 B{I,J)-B(I,J)+C(I,J) 

C 

C NOW TO MULTIPLY A TIMES THE SUM 

C 

DO 3 1-1,3 
DO 3 J-1,7 
D(l,J)-0 
DO 3 K-1,5 

3 D(l,J)-0(l,J)+A(l,K)*B(K,J) 

C 

C NOW TO PRINT THE RESULTS 
C 

PRINT 4,((D(1.J),J-1.7), 1-1,3) 
k FORMAT (5E15.8/2E15.8///) 
STOP 
END 
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Now let's start looking for this nebulous thing A 
always exist. Suppose we are presented with 



2 3 4 

3 1 2 
2 4 5 



Remember - it doesn't 



'11 D 12 



and we wish to determine 



u 21 
b 



J 2Z 
31 °32 



This is equivalent to solving three sets of simultaneous equations 

rr 



2 3 4 

3 1 2 
2 4 5 



u ll "12 u 13 
b 2i b 22 b 23 
b 31 b 



J 32 u 33 




2 3 4 

3 1 2 
2 4 5 



J 31 



L°32 



D 13 
b 23 
L b 33j 



If we choose the elimination technique, we can solve the three sets simultaneously 
since the operations depend only on the coefficients. Writing the constants in a 
rectangular array: 





2 


3 


4 


1 










3 


1 


2 





1 







2 


4 


5 








1_ 


Dividing the first equation in each set by the leading 


T 


3/2 


2 


1/2 








coefficient (2) we get 


3 


1 


2 





1 







2 


4 


5 








L 


Copying the first equations: then subtracting 3 times 


1 


3/2 


2 


1/2 








the first from the second: and then 2 times the first 





-7/2 


-4 


-3/2 


1 





from the third. 


o 


1 


1 


-1 





1_ 


Interchange 2nd and 3rd equations in each set. 


1 


3/2 


2 


1/2 













1 


1 


-1 





1 







-7/2 


-4 


-3/2 


1 





Subtract 3/2 of 2nd from 1st 







1/2 


2 





-3/2 


Subtract -7/2 of 2nd from 3rd 


I 




1 


-1 











e 


-1/2 


-5 


1 


7/2 



-7- 

lt>o 



o 



What have we accomplished thus far? 


I 





°1 




M 


- 3 


Let's interpret that portion which represents the 





1 







= -11 


first set of equations. 


1° 





1_ 




hi 


. 10 - 



By looking at the second and third sets of equations we can see that 



.312 
.11 2 8 
10 -2 -7 



This Means 



2 3 4 

3 1 2 
2 4 5J 



-312 
-11 2 8 
10 -2 -7 





1 













1 













1_ 



How did we do it? We wrote the given matrix and appended the identity on the 
right. We transformed the given matrix into the identity using only the following 
operations. 

1 . Multiplication of a row by a constant. 

2. Interchange of two rows. 

3. Addition of a multiple of a row to a different row. 

By carrying out these same operations on the identity, it was transformed into the 
identity. 



While no special order is necessary, only these operations are valid. 



ILL-Conditioned Sets of Simultaneous Linear Algebraic Equations 
Suppose we are presented with the system: 

32 
23 
33 
31 

Suppose further that we have by some means arrived at an approximation to the 
solution: Xj = 9. 2 , x^ =~12. 6 , x^ = 4. 5 , x^ =-1. 1 

How good is it? Is it acceptable? We can substitute these values into the left 
members above and see if the equations are satisfied. This gives: 

Lj = 32. 1 1 

L ? = 22.9 worst relative error 230 ~ .43% 

L 3 = 33. 1 

L =30.9 
4 

This looks like it might be acceptable. The worst error is less than 1/2%. But is 

it? The true solution is: x, = 1, x , = 1, x = 1, x =1. 

1 '2 '3 4 
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Lj = 10xj+ 7x 2 + 8x 3 + 7x 4 = 
Li£ = 7x^+ 5x2 ^ x 3 + ^ x 4 = 
L 3 = 8xj+ 6x 2 +10x_+ 9x = 

L. = 7x.+ 5x, +9x, + 10x* = 
4 1 2 J 4 



The worst error is 1360%. That is not acceptable. What constitutes an accept- 
able criterion? It depends upon why the problem is being solved but some 
possibilities are: 

(a) Make the residuals small, (the first test applied) 

(b) Make the solution nearly exact, (the second test applied) 

(c) Determine numbers such that only a small change in the 
coefficients is necessary to make the solution exact. 



Unfortunately b) is usually the test which must be satisfied. 
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A FAMILY OF TEST MATRICES 



A. C, R, Newbery 
University of Alberta, Calgary, Alberta, Canada 



A family of test matrices with; the following properties 
is here described: (a) An explicit inverse is given, (b) The 
characteristic polynomial is easily obtained, (c) A large measure 
of control over the eigenvalues is possible, (d) In special cases 
the eigenvalues and eigenvectors can be given explicitly, and the 
P-condition number can be arbitrarily assigned. 

Consider a matrix of the form Q = , where S is a 

scalar, R is a row-matrix {r 2 ,r , . . . ,r } , C is a column-matrix 
T 

{c 2 ,c 3 , . . . ,c n } and D is a diagonal matrix with elements ,d 3 , , ,d n< 
By use of the bordering method [1] the inverse is found to be 
Q" 1 = Jji where each submatrix of Q" 1 has the same form as 

the corresponding submatrix of Q, except that m' is generally not 
diagonal. Letting the subscripts of R* , c' , M 1 run from 2 to n, 
we find that 

S' = l/CS-Jr^/di], c! = -S'c i /d i , r! = -s'r^/d^ 

M !. = C« i .-c i rJ]/d 1 .- 

where 6^ is the Kronecker delta. The inversion can be performed 

in 2(n-l)(n+2)+l long operations; it might be possible to improve 

this figure with some ingenuity. 

The eigenvalue problem . Let X be an eigenvalue of Q, 
T 

and let x = [l,Xj,...,x } be the associated eigenvector. This 

leads to the following set of n equations: 
n 

S + I r.x. = X, c. + d.x. = Xx. for i > 2. 

ijii l 11 i — 



/63 



- 2 - 

On eliminating the x^ we obtain 

(1) S + I r i c i /(X-d i ) - X = 0. 

n 

If we write n(X) = n(X-d. ), n.(X) = n(X)/(X-d.), then on clearing 
2 1 

the fractions in (1) we obtain 

n 

(2) (x-s)n(x) - I r i c i n i (x) = 0. 

This is the characteristic equation. The following statements can 
be made concerning the eigenvalues: 

(A) If all r^c^ > and all d^ are distinct, then all the eigenvalues 
are real and are separated by the d^. 

(B) If all d^ are equal to d, then there are n-2 eigenvalues equal 

to d; the remaining two are zeros of the quadratic function 
n 

X 2 -(S+d)X + Sd - J r-c. . These zeros are real if, arid only if, 
2 i i 

(S-d) 2 + tTr.c. > 0. 

*■ i l — 

(C) If all d^ are equal to d, then the eigenvectors associated 
with the multiple eigenvalue d have zero as their first component, 
and they are orthogonal to the vector {0 ,r 2 . « ,r } . Eigenvectors 
corresponding to the other two eigenvalues are { X^-d ,c 2 , . . . ,c n } , 
where X^ is a zero of the quadratic given in (B). 

Proof of (A). Let H(X) denote the left side of (1), and 

let {d^} denote a reordering of the {d^} so that d!^ < d^ + ^. We 

note that H(X) is continuous in any interval which does not enclose 

any of the d^ , and that for sufficiently small e H(d^+c) >0 and 
t 

H(d^ + ^-e) <0„ Hence there is a zero of H(X) between each consecutive 
pair of the {d.!}; moreover since H(-») >0 and H(-) < 0, there are two 
more real zeros of H(X) outside the interval (d' ,d ). 



a 
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Proof of (B). If all the d^ are equal to d, then 

It(A) = (A-d)"" 1 and JI^A) = (A-d) n ' 2 . The characteristic equation (2) 
2 n 

then reduces to (A-d) " C(A-S)(A-d) - ^ r i c i 3 1 0. The discriminant 
of the quadratic factor is (S-d) 2 + '♦Jr^c^. Statement (C) may be 
directly verified. 

The P-condition number, i.e. the largest absolute ratio 
to two eigenvalues [2], can most conveniently be assigned by letting 
d^ = d; then, using statement (B), we can choose S and Jr^c^ in 
such a way as to assign any desired zeros to the quadratic; hence 
any desired maximum ratio of eigenvalue magnitudes may be procured. 

Remarks . If the inverse matrices are included along with 
the original family, then we have freedom within the family to 
specify sparse, non-sparse, symmetric, non-symmetric, well- or ill- 
conditioned matrices; furthermore we can require that the eigenvalues 
shall be all real or mixed real and complex. This should provide 
sufficient versatility for most test purposes. 
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THE IBM 1620 AS AHALTTICAL AMD PRS-COHPOSITIOmtL AID IH 13-TOHS MUSIC 

By Albert Tapper, Aseeelate Prefeeeor of Haste 

Hofstra Tfciiversity 
Computer Center 

1620 Users Group No. 1320 

***»**•« 

Tine required for presentation: 20 minutes 

Special projection equipment required} Tap* recorder, overhead projector 
••****•* 

In the early 1920* a the Austrian ousiclaa Arnold Sohoenberg evolved a compositional 
technique,, projected fro* an analysis of hia own works, which he called A MgHOU OP 
CC WPOSPr, tflTH THE TWELVE TONBS RSIATSD OHLT TO BACH OTHER . In thla Method all twelve 
pitch clasaea In the chromatic acale are arranged in aone specific order called a 
"tone raw", "row* or "series". The total mother of rowe possible, by the way, la 
12!; i„e<„ 1»79,001,600. 

The row la a constant group of relationships for a particular coapoaltlon and all 
aspects of pitch organisation derive froa its two sequential pitehea played 

successively areata melody} two or mora aeqosntial pitches played aiaaltaneoaaly create 
harmony* 

When read forward (from left to right)? the row is aald to be In its "original" or 
"prise" form. Read backwards the row ia In lta "retrograde" form—a mirror image., 
Another mirror Im age- the inversion— is created by altering the direction ef each 
successively adjacent pair of tones , Far example: if pitch #2 lias three semi-tones 
•oove pitch §l f Its inversion will lie three semi-tenes below; if pitch #3 lias one 

1. 
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The IBM X&20 As Analytical And rro-Coepooltlonal Aid in 12-Tone Music (Cont'd. ) 



semi-tone below pitch #2, lta Inversion will 11* on* seal-tone above. A backward 
reading of the inversion gives us the retrograde inversion. These four forma of the 
same row— -prime, retrograde, Inversion and retrograde Inversion— eonatitate the "baaie 
set". Bach basic set la capable of being moved — that la, transposed--from lta own 
pitch laWL to mrmrj other pitch level of the chraemtlc scale, taelve pitch levels in 
all. Hats forty-eight specific pitch erderlnga are spaaned by one row. The composer 
eboosee free among the forty-eight in any order he see* fit. 

Milton Babbitt of Princeton University baa ahem that the four original forme of the 
row pins all transpositions have the pr oper t ies of • set and nay be stated as a aetrlx. 
Rather than label the first pitch in the prise font fl, the second pitch #2, and so on, 
let us designate each pitch by Its seal-tonal distance froa pitch #L, which Is set at 
aero. Since oar Interest is In pitch classes rather than specific pitches (all C'a 
have the sane vales, all F sharps have the sane value, all B flats have tfaa aaas 
value, etc. ), let as alee arbitrarily assume C to be pitch #1 with the val « of sere. 
In our p r ese nt equally tempered tuning system, C sharp and flat are the seme pitch 
and He one aeel-tone above C, thereby having the value of 1. D has the valine of 2, 
sharp and B flat the value of 3, B the value of It, etc. B, one seal-tone below C, 
la also eleven eeml-tonaa above, aid therefore has the value of 11 

As the distance be t wee n any two pitches eaa never be less than aero, and as any posi- 
tive value greater than 11 duplloatee a pi tab class in the aero to 11 rango, it follows 
that we are Halted to whole numbers with base 12. 

A 12 X 12 pitch matrix can thus be stated in purely arithmetical terms. Bath rank is 

both prime and retrograde forma at one of the twelve pitch levela, each column is both 

inversion and retrograde inversion forns at one of the twelve pitch levels „ Since the 

matrix shews all row possibilities in compact form and at a glance, its value to both 

2. 
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the 12-tone composer and musical analyst is obvious. But while the lUlt cells of the 
matrix may ba filled in by "hand", the job la a tedious one, taking 20 minutes, 
with 132 1»fH«'» possibilities for error. It seemed worthwhile, therefore, to pro- 
gram the computer to produce a matrix from a given row„ 

Mr. Lowry I* HeKee, Aesistant Director of the Hofstra university Computer Center, 
guided, instructed, helped and sustained aw while I straggled with the problem. Cer- 
tain refinements were added as we went along, as follows! 

1. Since each pitch class already had an assigned value, it was no longer neces- 
sary to start each row with aero. The twelve cards of the data deck, each with a 
number from aero to 11, may be placed in the Bead Hopper in any order. 

2. The matrix is stated In three format as a set of numbers j as a set of pitch 
clasaes designated by the letters of the musical alphabet from A to 0, in their natural 
and sharp variants (the plus sign substitutes for the sharp)} and as a set of pitch 
classes from A to G in their natural and flat variants (the minus sign substitutes 

for the flat). 

3. An Interesting phenomenon, which can be useful to the 12 --tone co mp oser, Is 
the ability of certain row forms to combine and create permutations. George Roehberg 
of the University of Pennsylvania has devised an arithmetical test for this. An odd 
number from 1 to 11 is added as a constant to each of the first six values In the 
prime form which beglne with »ero„ The same oonatant Is then added to every pair of 
the seme six values,, If the sum in each Instance is neither 12 nor 2l», the first six 
values (that Is, the first half) of the prima form and the first half of the inver- 
sion will combine and create a 12-tone permutation at the semi-tone distance of the 
constant. The sseond halves of both prime and Inversion will also combine in the 
same manner. The result Is of course transposa bl e to all pitch levels. The progmu 
devised by Mr. MeXee and myself performs this operation and supplies the result In 

those instances where the result positive. 

3. 
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Delivered to the 1620 Users Group Meeting, 1964, in Chicago. 

Logic Theorem Detection Program 

The program is designed to take conventionally written (i.e., not in a 
bracket-free notation) well formed formulae (WFF) of the prepositional 
calculus as input, test them for theoremhood, and state the result as output. 
There are several subsidiary output results possible. Input and output are 
via the typewriter. The program is written in SPS for the IBM 1620 computer. 
It uses about 5500 cores and consists in about 400 commands plus storage. 

Conditions of uses The original WFF may contain only three primitive 
variables (P, Q, & R) and four operators (those for conjunction, disjunction, 
implication & negation). The WFF may be up to 49 symbols in length and may 
contain up to seven pairs of brackets. Thus the WFF which may be processed 
conform to the requirements of a fully developed prepositional calculus and 
there is, in any case, no theoretical difficulty in extending the range of 
WFF which may be processed. The computer does not take all the conventional 
logical symbols and the following symbolisation has therefore been usedt 
disjunction '♦', conjunction implication '/', negation *-'. 

The rules for WFF are formulated in different ways for the propositional 
calculus. The following formulation is used herei Any primitive variable 
is well formed. If anything which is a WFF is designated by X, Y, etc., 
thent -X is well formed) (X.Y) is well formed} (X + Y) is well formed; 
(X/Y) is well formed. The brackets round the whole of a WFF to be tested 
for theoremhood need not be included, e.g., P/(P + Q) may be tested for 
theoremhood as it stands. It should be noticed that (P.Q.R), (P + Q + Ft), 
etc. would not be well formed in this formulation but would have to be 
written (P.(Q.R)), ((P ♦ Q) + R), etc. These rules are entirely typical 
for a propositional calculus. 
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The program operates as follows (see attached sheet for sample)* It 
announces itself and invites typein of a WFF. It then types the result. 
The following subsidiary results may be obtained on the Consul switchest 
(l) By well known theorems of the propositional calculus, any number of 
negatives greater than one ('stacked negatives') before a WFF may be reduced 
to one or none. On switch 1, the original WFF is typed without stacked 
negatives. (2) The method of processing employed is to break the original 
WFF down into a two variable form, the computer supplying new variables 
where required. These new variables themselves stand for WF which are 
broken down in the same way. The effect is to produce a two variable list 
in which no brackets are required (they are not required for the same reason 1 
that brackets are not needed round the whole of a WFF to be tested); the 
first item in the list is the original WFF in two variable form and the 
subsequent items define the new variable or variables introduced by the 
computer. This process continues until all the introduced variables are 
defined. On switch 2, the list is typed, with each introduced variable 
explicitly defined. (3) The method employed in the logic section of the 
program is to build a truth-table, with a set of values for each variable, 
primitive or defined. On switch 3 this table, or a desired portion of it, 
can be obtained. The operator types in a variable and the computer gives 
the associated set of values; by typing in all the variables used or 
introduced by the computer, plus *F' for the original WFF, a complete 
table is obtained. The table is biniary, containing either 01 (true) or 
00 (false) in each of its eight columns; if the WFF being tested is a 
theorem, the table will contain eight entries of 01 for the original 
WFF. Typing in 'N' returns the computer to the main program. 

Jon Wheatley, Philosophy, 
Queen's University at Kingston, 
170 Ontario, Canada. 
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TYPE IN WFF 

(P/-Q)/(Q/-P) 

THEOREM 



TYPE IN V/FF 

((P.-P).~Q)/(((Q+-P) + (R.-Q))+ P) 

TEST OH CI - WFF WITHOUT STACKED NEGATIVES 

((P.-P).Q)/(((Q+-P)+(R.-Q))+-P) 

TEST ON C2 - WFF AS TWO VAR1 ABLE LIST 

WFF S/U 

S= T.Q 

T= P.-P 

U= V+-P 

V- W+X 

W= Q+-P 

X= R.-Q 
THEOREM 

TEST ON C3 - TRUTH TABLE ON DEMAND 
PT>01 01 01 01 00000000 
QRS01 01 000001 01 0000 
RKSO 10001 0001 000 100 

sitsOoOoooOoOoOoOoOo 

TRWOOODoOODoOoOOOO 

UTjp i o i C 1 DoO I D 1 D t C 1 
vraiOiOiI3oDi?5iI5iOi 
vjt >o i o l DoDoO i o 1 D J D 1 
xikooCoo" 1 DoDoDo0 1 Do 
FR«3lOlOlOlOlOlDlOl 
NRS 



TYPE IN V/FF 

(_Q + _(R+(_Q+P) ) )/— (-R. (Q.P ) ) 

TEST OH CI - WFF WITHOUT STACKED NEGATIVES 

(-Q+-(R+(-Q+P)))/(-R.(Q.P)) 

TEST ON C2 - WFF AS TWO VARIABLE LIST 

WFF S/V 

S= -Q+-T 

T= R+U 

U= -Q+P 

V- -R.W 

W- 0..P 
NO THEOREM 
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An Additive Pseudo-r-indom Number Generator 
H.T. Wheeler", J.K. Lewis, E.A. Cherniak 

Department of Chemistry 
Carleton University 
Ottawa, Canada 

INTRODUCTION - This generator was developed for use in a machine language pro- 
gramme requiring random digits and short random fields. The method of 
generation exploits the variable field length feature of the 1620 by adding 
fields of several hundred digits in length. A small table of random digits 
is generated and stored in memory. From this table are selected random 
digits and/or fields as required. When any table is used up a new table is 
generated using the old table as input data. 

The original prograirjue has been modified and rewritten in SPS for use as 
a Ft^-t^an subroutine. Since the method of generation involves addition only, 
this generator is faster than the usual multiplicative generator. 

The tests for randomness which have been performed on the output of the 
generator have given quite satisfactory results. 

METHOD - The generator requires an initial random number of 501 digits. 
This initial number may be conveniently obtained from a table of random 
nunbers such as the Rand Corporation, "1,000,000 Random Digits with 100,000 
Normal Deviates". 

The initial number, which will be denoted N^, is divided into two component 
fields, and B^, of 311 and 190 digits respectively. Thus: 

\ = (A T ) (10 190 ) + B 1 

A second number, C^, is formed by reversing the order of the two com- 
ponent fields. Thus: 

^Speaker (to whom enquiries concerning this program should be sent) 
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C x = (B 1 ) (10 311 ) + A 1 

The second random number, Nj, is formed by adding to and discarding 
the high order carry, if any: 

N 2 - (c i + V (modul0 lo501 ) 

The number is generated from N._^ by the same procedure. 

The choice of the values 501, 311, and 190 for the field lengths was 
largely arbitrary although it was intuitively felt that better performance 
would be obtained if each of the values had few prime factors and no common 
factors existed among the three values. 311 is a prime number; 501 and 190 
factor into (167) (3) and (19) (5) (2) respectively. 

RATE OF GENERATION - The 501 digit number js generated in 6i.5 milliseconds 
(for a Model l). The average time taken to obtain an 8 digit field, normalize, 
and store in FAC, when the generator is used as a Fortran floating point 
subroutine, is about L.5 milliseconds. The time taken by the Fortran 2 
variable precision subroutine is roughly given by (3.5 + f/8) milliseconds, 
where f is the mantissa length. 

TESTS FOR RANDOMNESS - The major tests which have been performed on the 
generator were for the freouency distributions of single digits, of ordered 
pairs of digits, and of runs of repeated like digits. These tests were 
performed on the 501 digit numbers without any division into smaller fields. 
Some of the test results are shown in the following tables. 

In Table 1 the results of a digit frequency test on one million digits 
are shown. Except for the somewhat large chi-square values for blocks 9 
and 10 the results are very satisfactory. 

173 



Table 2 shows a typical result of the ordered pair analysis. The 
expected value for each entry in the matrix is 501. The frequency of the 
ordered pair xy is the yth term in the xth row. 

In Table 3 the repeated like digit analysis results are shown. 

The results of these tests are sufficiently good to indicate a usable 
degree of randomness. If a greater degree of randomness is required the 
output of two seps-rate generators could be added to produce an improved 501 
digit table. 

We are grateful to the Natior.nl Research Council of Canada for the 
financial assistance which made this work possible and the Computer Policy 
Committee of Carleton University for granting us the necessary machine time. 



1. Ljwis, Wheeler, Cherniak - A Model Diffusion-reaction programme for the 
1620 - 1620 Users Group Joint Meeting (Canadian and Mid-Western Regions) 
Chicago, February, 1964.. 
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TABLE I 



DIGIT FREQUENCY TEST 
OM MILLION DIGITS 



Block 






No. 





1 


1 


4956 


5014 


2 


5038 


4927 


3 


5039 


4954 


4 


4979 


5002 


5 


5005 


4907 


6 


4973 


5108 


7 


4938 


5028 


8 


5011 


5047 


9 


4995 


4806 


10 


5125 


5063 


11 


4974 


5032 


12 


4964 


4934 


13 


4965 


5004 


14 


5056 


5077 


15 


4960 


5094 


16 


4981 


4930 


17 


4977 


5071 


18 


5116 


4996 


19 


5008 


4880 


20 


4015 


4998 




100075 





Total 99872 



2 3 4 

5025 5077 4960 

5054 4934 4943 

4994 4978 5006 
5073 5041 5056 
4906 5117 5025 
4983 4996 4914 

4995 4902 5096 
4938 5064 5006 
4966 5040 5011 
5000 5062 4832 
4908 5062 5021 
5111 4930 5096 
5027 5021 5076 
4898 5081 5053 
5037 4876 4990 
5046 4982 5077 
5096 4955 4982 
4990 5009 4981 
5042 4943 5008 
4989 4950 5106 

100078 100239 

100020 



5 


6 


7 


5050 


4909 


5009 


5056 


5008 


4965 


5061 


4923 


4926 


4947 


4980 


4967 


5094 


4909 


5079 


5010 


. 5079 


4877 


5063 


5087 


4999 


4871 


5036 


4957 


4884 


4960 


5026 


5117 


5060 


4924 


5019 


4961 


4908 


5018 


4862 


5004 


5044 


5021 


4995 


4972 


4897 


5000 


4995 


5108 


4963 


4970 


5035 


5083 


4863 


4972 


4962 


4972 


4848 


4987 


5093 


5024 


4968 


4968 


5012 


4963 




99691 





100067 99562 



8 


9 


CHI' 


4996 


5004 


4.24 


4967 


5108 


6.85 


5035 


5084 


5.52 


5027 


4928 


4.16 


4976 


4982 


11.21 


5079 


4981 


9.63 


4974 


4918 


8.48 


5064 


5006 


6.85 


5163 


5149 


20.78 


4992 


4825 


21.08 


5109 


5006 


7.34 


5121 


4960 


13.54 


4931 


4916 


4.48 


4856 


5110 


14.61 


5006 


4970 


8.24 


4970 


4926 


5.80 


5077 


5045 


9.22 


4943 


5157 


13.19 


5014 


5020 


6.08 


4970 


5029 


3.67 



100270 



100125 



CHI 2 (totals) = 4.660 Probability (> CHI 2 ) =0.86 

Of the 200 frequencies 64 deviate by more than sigma (=67.08) 

(expected number = 63.4) and 9 frequencies deviate by more than 
two sigma 
(expected number = 8.2). 

2 

Tests on column totals CHI Probability 
Odd versus even digits 0.498 0.49 
Within odd digits 2.372 0.68 

Within even digits 2.287 0.69 
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TABLE II 



ORDERED PAIR ANALYSIS ON 100 NUMBERS 
OF 501 DIGITS. 








1 


2 


3 


4 


5 


b 


7 


8 


9 


CHI 2 





472 


504 


544 


477 


509 


490 


496 


496 


493 


454 


11.54 


1 


519 


494 


511 


516 


487 


527 


503 


516 


503 


506 


3.64 


2 


502 


490 


497 


514 


474 


502 


530 


505 


519 


511 


4.62 


3 


514 


520 


499 


494 


451 


517 


479 


505 


507 


518 


8.31 


4 


479 


480 


489 


493 


472 


496 


508 


456 


462 


530 


12.84 


5 


511 


502 


520 


529 


482 


492 


505 


514 


472 


475 


6.76 


6 


- 495 


542 


498 


476 


521 


495 


517 


530 


527 


513 


9.38 


7 


468 


507 


507 


506 


489 


513 


486 


483 


498 


509 


4.18 


8 


476 • 


562 


492 


496 


508 


469 


544 


475 


479 


487 


17.42 


9 


500 


483 


493 


509 


469 


498 


540 


479 


530 


499 


8.65 


2 


7.32 


13.46 


5.31 


5.20 


12.59 


4.73 


10.51 


9.58 


9.58 


9.07 





Probability (CHI 2 > 16.92) = 0.05 



TABLE III 

REPEATED LIKE DIGIT 
RUN ANALYSIS RESULTS - TESTS ON 
50,100 DIGITS 
LENGTH OF RUN 



TEST NO. 1 2 

1 40723 3987 

2 40592 4079 

3 40639 4036 

4 40488 U22 

5 40570 4068 

AVERAGE 40590 4058 

EXPECTED 40581 4058 



3 4 5 6 

411 40 2 

404 49 1 

406 34 7 

391 45 3 

397 42 7 

402 42 4.0 # 0.0 

406 a 4.1 0.4 



A MODEL DIFFUSION- RBACTION PROGRAMME FOR THE 1620. 

J.K. Lewis, H.T. Wheeler, E.A. Cherniak* 
Department of Chemistry 
Carleton University 
Ottawa , Canada 

Diffusion, particularly neutron-diffusion, has been studied by Monte 
Carlo on digital computers since the introduction of the ENIAC. However, 
as far as we know, no extensive applications of this method, to diffuslon- 
reactioii problems of a chemical nature, have yet been given. This paper 
describes one approach to such a problem. 

In the radiolysis of liquid benzene, it is well known that a high 
energy particle leaves behind it a cylindrical track of excited molecules 
and ions. The track is of varying density, depending on the energy of the 
incident particle. It was believed that certain phenomena, notably the 
variation of hydrogen yields with stopping power, could be explained, in a 
way, suggested by Burns(l), by assuming that these activated molecular 
entities were of one form, B*, which could react In the following way: 

B —a^wv — > B* 

B* + B* — >H 2 + P(?) 

B* + B — >2B 

The main feature then to be explained was the variation of H^ yields with 
stopping power. This is shown in figure 1 where the experimental average 
values of the 3.^ yields, compiled by Burns and Barker(2), from the results 
of the investigations of a number of workers, are given as a logarithmic 
function of the Ganguly and MageeO) average stopping power Z. 

* Speaker (to whom enquiries concerning this programme should be sent.) 
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In the programme which we eventually used, a particle was represented by- 
its coordinates, each coordinate having four digits and the total comprising a 
field of twelve digits with a single flag on the high-order digit. Reacted 
particles were denoted by a flag on the low-order digit. The quenching reaction 
(UR) was treated as an unimolecular process and for the bimolecular process (BR) 
the coordinates of each particle had to be compared. 

The "tracks" (see flow chart l) were set up in the most elementary fashion. 
A few cards were read in, each with the coordinates of a particle and the number 
of particles with those coordinates to be set. When all the cards were read, 
the track could be stored elsewhere in memory. The numbers controlling the 
rates of reaction and the width of the initial distribution were then read in. 

The initial particle distribution was then generated by allowing the 
particles to be moved the specified number of times without reacting. The 
distribution generated in this manner by, say, six pre-reaction moves is quite 
close to Gaussian. 

The particles were then moved and reacted, alternately, (see flow chart 2) 
until all the particles were gone, after which the numbers of particles 
reacted was typed and the programme repeated. 

Each particle was moved by adding to it a 10 digit field with a random 
digit in the first, fifth and the ninth positions from the right. Thus the 
centre of gravity of the particles "drifted" steadily through model space. 
It was found that random digits with a rectangular distribution, i.e. equal 
probabilities for all the digits, caused the particles to diffuse off at an 
inconveniently high rate. We were thus laced with the problem of generating 
large numbers of digits rapidly with a skewed distribution. The obvious method, 
playing a game of chance, proved cumbersome. However, a simple modification 
of the random number generator, described by Wheeler(4.), proved successful. 
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To produce a distribution of digits the programme replaced the add tables 
with special add tables having digits in the desired frequency. Thus these 
digits could be produced in an average time K 250/4- sec. /digit. Further- 
more, the frequencies of the digits could be controlled to 1 part in 100, 
although as our particles had a moving centre of gravity, the frequency 
distribution had to be symmetrical about the mean move length, restricting 
our control to 1 part in 50. This was far more than sufficient. 

The "react" routine (flow chart 2) contained a scanner which scanned the 
appropriate section of memory until it found either a record mark, indicating 
the end of the particles, or an unreacted particle. Then, depending upon the 
state of a simple flip-flop operating on bd's and tdm's, the particle would be 
"reacted" first unimolecularly. . . .and then bimolecular ly, or vice versa. This 
altergration on unimolecular and bimolecular from one particle to the next was 
found necessary at high concentrations of particles. 

To ascertain whether a particle was to have reacted unimolecularly or 

not, a four digit field was taken from the random number generator and compared 

with a control number. If the random number chosen was less than the 

control number, the particle was assumed to have reacted, a flag was placed 

on its units position, a counter was incremented, and control returned to the 

scanner to find another particle. The four digit length was actually found 

to be necessary to give adequate control over the unimolecular rate. If 
greater 

the random number was than the control number, the program would proceed 

to the next particle or would consider the particle for bimolecular reaction, 
depending on the status of the flip-flop. 

For the bimolecular reaction, the particles above the particle under 
consideration were examined for whether or not they were reacted. When an 
unreacted one was found, its coordinates were compared, by a single c 
instruction, with the particle under consideration. Analysis showed that it would 
probably be faster to compare all twelve digits of each sets of coordinates 
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at once than divide them into 3, of which only the first four would be 
compared for two non-coincident particles. When two particles were found 
to coincide, the usual chance game was played to aetermine if reaction had taken 
place. Unlike the unimc-lecular reaction, however, only a three digit control 
number was used and two digits would have sufficed. 

The programme described above, which was written in about 1000 machine 
language commands on a 4-0K 1620 with automatic divide, will "react — ■> 150 
particles to completion in 5-15 minutes, depending on conditions, but typi- 
cally 7 minutes, with a standard deviation of —15$ in the results. A 
comparison of our results with the experimental data is shown in figure 1. 
By varying the control numbers it was found that the experimental data could 
be fitted quite closely and that the values this fitting procedure gave for 
the rate constants were in fact plausible. 

We are now engaged in refining our interpretation to get improved values 

for rate constants. Actually, this problem of interpretation is the main 

disadvantage of our approach vis a vis a numerical integration method. Our 

programme is probably as fast or faster than a numerical programme for the 

same mechanism, and the ~^15% deviation is not excessive for experimental 

values accurate to better than 10% are rare in this field. However, the 

process of getting from our model to the physical situation is rather involved. 

First we work out a one dimensional distribution of particles which have moved 

several times with the move distribution we use. We then fit a Gaussian curve 

to this and from this obtain a model diffusion coefficient. A good value for 

the real self-diffusion coefficient is available, so this gives us a value 
2 

for "model length)/ model time" in real units. If a good model length is 
found, then the model time drops out. From the diffusion coefficient and 
the control numbers the two rate constants are readily obtained. However, 
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the "model length" poses the problem. After some thought we decided it 
should be twice the "collision diameter" of the molecule, but, in liquids 
this is a rather ill-defihed quantity, and reasonable values based on 
various definitions tend to differ somewhat. 

The main virtue of bur program was its flexibility. It can handle 
regions of intermediate stopping power, where the track resembles billiard 
balls strung together on a cord, which are particularly difficult for 
standard numerical integration procedures. It can also handle varying 
amounts of particles corresponding to different input power, and with modi- 
fications could treat other problems, such as effects of small amounts of 
reactive solutes. These last two features were never used, partly because 
of a paucity of experimental data, because the effects are notable chiefly 
through their absence, but principally because crude hand calculations upon 
the "plausible" rate constant values were sufficient to show that these 
effects should in fact be small. . . 

We are grateful to the National Research Council of Canada for the 
financial assistance which made this work possible and the Computer Policy 
Committee of Carleton University for granting us the necessary machine 
time. 

1. Burns, Trans. Faraday Soc. 5.2 101 (1963). 

2. Burns and Barker, United Kingdom A.E.R.E. Report 424-0 (1963). 

3. Ganguly and Magee, J. Chem. Phys. 25_ 129 (1956). 

4. Wheeler, Lewis, Cherniak - A new random number generator - 

1620 Users Group Joint Meeting 
(Canadian and Mid- Western Regions) 
Chicago, February, 1964. 
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FI6 I Variation of experimental G(H 2 ) (o) with average L E.T. in the 

radiolytit of liquid C t H e , obtained by diffueion reaction 

programme, predicted by diffusion reaction programme. 
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AUTOSPOTLESS NUMERICAL CONTROL 
WITH THE 1620 

A great deal of emphasis Is being given to the 1620 and Its role 
In the numerical control of machine tools. This is certainly as 
it should be. However, the resulting emphasis on the APT (Auto- 
matically Programmed Tools) language and the Autospot subset of 
this language is unjustified. 
The use of Autospot assumes : 

1. The only output desired is a paper tape and a listing 
of its contents. 

2. Sufficient 1620 time to use a four deck processor 
(including post processor) for each workpiece. 

3. The existence of a post precessing program. 

4. The existence of trained "parts programmers". 

Due to the specialized nature of our numerically controlled ma- 
chines, operator's instructions must accompany the tape as it 
enters the shop. Furthermore,, Industrial Engineering must prepare 
standard hours for entry on the shop routing or traveler. Thus, 
it has been decided that all these documents should be computer 
created. Autospot does not lend itself to this effort. 
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Over 175 workpieces are processed monthly on our Ingersoll header 
drill. This represents drilling and chamfering some 70,000 holes 
each month. For the Autospot processor, this represents over 70 
hours of computer time. This would mean second shift operation 
for almost any 1620 facility. 

The creation of a post processor involves understanding of Autospot, 
the tool to be controlled, the 1620 and the controlling mechanism 
itself. This, coupled with the fact that Autospot is really more 
comprehensive than is necessary for our applications, makes the 
creation of a fixed format input processor most advisable. 
With such fixed format input programs, no "parts programmers" are 
required. Industrial Engineering members can readily interpret 
engineering drawings and compactly represent this information on 
input sheets. 

The total time from the Interpretation of the drawing to the 
creation of pertinent documents is greatly reduced by use of 
this concept. To Illustrate, the Ingersoll header drill with 
its accompanying functions and required documents can be cited. 
The N/C Ingersoll header drill is used for drilling and counter- 
boring cylinders on the order of 60 feet long, 1 ft. outside 
diameter and two inch (2") thick walls. The holes in this cylinder 
normally align themselves Into six (6) or less rows down the 
header. The hole spacings are highly irregular and are a function 
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of the boiler system of which the header is a part. The work 
which preoeeds the actual drilling of a header i3 best described 
by fig. 1. The three (3) documents entering the shop serve the 
following functions: 

1. Routing 3 lip 

a. Provides operational sequence 

b. Shows standard hours allocated for each operation 

c. The approximate date on which each operation should 
occur is also shown 

2. Tape contains 

a. Positions for drilling 

b. Drilling feeds and speeds 

c. Counterboring feeds and speeds 

d. Spindle starts and stops 

e. Gear changes 

3. Operators instructions 

a. Shows angularity of each row from a given point 

b. Tells the operator when to use what tools 

c. Provides settings for limit switches 
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proper representation of input data permits the creation of all 
these documents. Autospot does not lend itself to such a repre- 
sentation. For example, Autospot must be told which tool to use. 
Our feeling is that the program should select the tool. The 
computer selection of a tool eliminates a great deal of human 
thought and potential error since tool choice is a function of 
material type, nipple o„d., nipple wall thickness, thickness of 
header, etc. This selection then fixes the counterboring diameter, 
counterboring depth, drilling feed and speed, counterboring feed 
and speed, gear range, etc. 

The Input sheet used by our program is shown in fig, 2. The 
manner in which the completion of this sheet fits „into the 
overall picture of fig. 1 is shown by fig. 3. 
Several points are worth noting about this system: 

1. No parts programmers are required. Technicians complete 
the input sheets. 

2. No post processor is required 

3. Two SPS programs can create all the described documents. 

4. A typical header can be processed through the 1620 In 
less than .1 hour to produce all documents. 
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t. Autospot would require no less than .4 hours to create 
tape Information alone. 
When the total systems approach is applied to N/C problems, the 
fixed format input exemplified by this system and other systems 
like the IBM 1401 Autoprops seems to have definite advantages over 
APT processors. 





O 



CUSTOMER S. Q , NO, DRAWING NO, u DAT E 

PART NAME NO. OF FINISHED PIECES PROGRAMMED BY 

MATER IAL* MATERIAL SIZE A / "00 X / "AW X fc / " L 

















































NIPPLE 




WALL 




:ham 




INITIAL 












FINAL 




ROW 




ANGLE 




00 




THK. 




FER 




X 




SPACE! 




AX 




X 


































































































































































































■ I 


























































































1 


























































































i 




























































































































" 1 
















































1 










I 


























1 




































1 










i 




j 






._u 


























hp" 
























































































1 








































































































































1 

— 1 — 
































































1 






1 


1 










































































1 








1 










I 












! 
















































'II- 








T 










1 












1 




































































1 












! 
























! I 


























1 

1 






i 1 










j 












! 

> 






















1 • ! 










































i 




L 
i 

! 










1 1 




























1 


>— 

w 


I i 






■f rr 






j 






















\ \ 


























i ! 


i 
1 


' ' i 


i 
1 


i i 


1 




Mil! 


















1 1 


i 






1 i 



'v J 




* » 




Technical Publication 



AUTOSPOT E 
PREPROCESSOR PROGRAM 

By D.F. McManigal 
PRG 26.0006 



Poughkeepsie Manufacturing Engineering 
Data Systems Division 



ABSTRACT 



The Autospot II Preprocessor is an IBM computer program 
used to help the parts programmer prepare correct input 
data for Autospot II. 

January 2, 1964 



1.0 -INTRODUCTION 

Autospot II ( AUTO motic System for Positioning Tools, Model II) is a 
computer program for the IBM 1620 Data Processing System (see Figure 1). 
It was designed to aid the parts programmer in preparing instructions for 
numerically controlled point-to-point machine tools. Autospot permits the 
use of easily remembered codes, such as DRItL, TAP, and MILL, instead of 
the more complicated numeric codes used by numerical control machine tools. 
Autospot performs many computations for the parts programmer, and relieves 
him of much redundant coding. 




F:gur3 1. Autospot II Progiam Flo./ 
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Autospot II consists of a General Processor which is common to all 
machine tools and a'Post Processor for each machine tool. The General 
Processor performs such operations as translation to numeric codes and 
machining pattern manipulation. The Post Processor tailors the output of 
the General Processor to suit the individual machine tool requirements. 
The input to the General Processor is a source statement card deck and the 
output from the Post Processor is a punched tape containing machine tool 
commands in the proper code. 

2.0 THE NEED FOR A PREPROCESSOR 

To reduce the number of passes required in the General Processor, 
error detection and diagnosis were limited to a minimum. Most source 
statement errors result in general error messages; however, many errors 
cause a computer check stop or hang-up condition, without -an error 
-message. 

The lack of extensive diagnostic information is not a serious problem 
when the parts programmer has adequate experience with Autospot. Much 
time is lost, -however, in identifying errors and the assistance of a 1620 
programmer is frequently required. An inexperienced parts programmer 
often encounters so much difficulty with source program errors that much of 
the advantage of Autospot is lost. For example: If a parts programmer 
inadvertently substitutes a decimal point for a comma at the end of a 
coordinate dimension., the 1620 will hang-up in an-infinite loop when the 
General Processor reads the statement. The parts programmer may then 
need the assistance of a 1620 programmer to locate the error. 

3.0 PREPROCESSOR DESCRIPTION 

The Autospot Preprocessor (see Figure 2) is a one pass program for the 
1620 system. Jts purpose is to detect and diagnose most of the errors whicb 
occur in Autospot II source statements. Error detection is sufficiently 
detailed to permit immediate recognition of most common errors, and^to 
significantly reduce the time required to diagnose unusual errors. On-line 
editing permits immediate correction of mast errors during preprocessing. 

The Preprocessor is capable of detecting two types of error: format 
errors, such as typographical mistakes; and, violations of Autospot rules, 
such as illegal pattern manipulation. Most of the 35 possible error messages 
refer to rul-e violations because these errors are usually more difficult to 
diagnose than are errors of form. 
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AUTOSPOT 
PREPROCESSOR 

Figure 2. Autospot Preprocessor 



EXAMPLE I 

The use of too many machining patterns will result in the error message: 

E COUNT PAT PAT I. 
where PAT I is the symbolic label assigned to the pattern by the parts 
programmer. This error messoge is specific because the nature of the 
error is not readily evident. 

EXAMPLE tl 

The use of the letters DQ insteod of DP for specifying a depth will 
result in the error message: 

C FORM AUX DQ. 
This indicates a format error in the auxiliary section of the statement. 
The specific nature of the error is readily evident. 

When on error is encountered, the preprocessor will type: 
one of the 35 different error messages, 
the entire erroneous line, 

the contents of the dota field in question, and 

the punctuation terminating that field. 
The dota field or statement section is not necessarily in error, but this indicates 
that tr» error was recognized at that point. The actual error may appear 
anywhere up to that point. 
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3. 1 PREPROCESSOR ERROR MESSAGES 



The error messages are in abbreviated form and contoin error type codes 
which indicate the corrective oction to be taken. A blank code indicotes 
that the typeout is for information only and requires no oction. A "P" code 
indicates that the field in question is occeptoble but unusual and is a possible 
error. An "E" code indicotes that there is a definite error which connot be 
corrected on-line, but which will result in an erroneous edited deck. A "C" 
code indicotes that the error is definite but con be corrected on-line. 

The computer takes no oction on a blank or "P" coded error. The 
erroneous statement is deleted on on "E" type error but no halt occurs. 
Program switch settings determine the action on a "C" type error. If the 
editing feature is disabled, the error is treated as on "E" type error. If 
editing is required, a program halt occurs to permit correction or omission of 
the erroneous statement (at the discretion of the operator). 

The non-stop mode of operation permits operators who are not familiar 
with Autospot to run the Preprocessor. The Preprocessor wMJ also calculate 
effective drill lengths, a feature which reduces the number of calculations 
the parts programmer is required to make. 

3.2 PREPROCESSOR ADVANTAGES 

The effectiveness of the Preprocessor is illustrated by a test problem 
.vhich was run at IBM Poughkeepsie. The part being programmed was an 
actual production piece, requiring approximately 3,000 lines of numerical 
controls for the Kearney and Trecker Mi Kvaukee-Matic machine tool. The 
Autospot source deck required 126 lines, including 107 lines of machining 
statements. Using the Preprocessor, this large program was debugged in less 
than 30 minutes, of which only 14 minutes was 1620 computer time. This 
time included the initial run and two reruns after corrections (corrections 
being made off-line due to type"E" errors). The same source program was 
partially debugged ; by the parts programmer who wrote it ? in four hours. The 
experiment was then terminated and the job completed using the Preprocessor. 

Little time is lost in running good source statements through the 
Preprocessor. Error free source cards are processed at the average rote of 
one line per second, assuming nearly full lines. If no errors are found, most 
source decks may be checked in less than one minute (including Program load 
time). 
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4. SUMMARY 



The Autospot II General Processor provides limited error diagnosis. 
Because of this,many advantages are obtained by using the Autospot 
Preprocessor. The Preprocessor pinpoints most common errors and provides 
sufficient diagnostic information to significantly reduce the diagnosis time 
for unusual errors. 

5.0 PREPROCESSOR DEBUGGING (SAMPLE) 

Figure 3 shows the General Processor listing of a sample problem. 
Note error messages. 

Figure 4 shows the output of the Autospot Preprocessor for the same 
program. Note error messages. 

Figure 5 shows the rerun of the edited program deck. 
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X.Y.Z ENTRIES SHOULD AGREE WITH DASHA 
SHOULD HAVE TAILE POSITION 



7.5 

120.0 7.0 
119.0 6.5 



1 REMARK/ GENERAL PROCESSOR ERROR MESSAGES $ 

2 OASHA(3.5,2.7S)$ 

3 DASHi-0ASHA(0. 0,5. 25,-1.0)$ 
k DASHCO. 0,7.5)$ 

5 CL(0.3)$ 

6 0H( 1.0, 1.0,1.0)$. 

7 0H(0. 5,0.3, 0.3)$ 

8 DH(1.0,0.5.0.5)$ 

9 DH(0.5,0.5)$ 

10 TOOL/DRILL 1301 0.25 

11 T00L/SPDRL 1302 0.5 

12 TOOL/DRILL 1303 O.k 

13 START$ 

14 PAT1-/0AA, $X(O.0)SY(O.O)EX(9.O)NH(5)$ 

15 »"*T2-SP0RL,13O2/PAT1/0l(O.2)THEN,PAT1(O.O,1.O)THEN,PAT1(2.75,2.0)AT(90.0)$ 

16 DR ILL, 1301 /PAT 2/00(2. 0)DH( 1 )0W$ 0Q SHOULD BE DP 

ERROR MINOR SECTION 16 DRILL, 1301/PAT2/DQ(2.0)DH( 1 )DW$ D0 SHOULD BE DP 

17 PAT3"/PAT1 (5. 0,0.0) THEN, PAT1 (6, 0,0.0) THEN, PAT1 (7.0,0.0)$ 

19 DRILL, 1303/REV,PAT3/DP(2.0)DH(1»)THEN,DAB,PAT3,THEN,DAC,PAT3$ DH i. WRONG 

19 REMARK/ REVERSAL OF SECOND GENERATION $ 

20 REMARK/ PATTERN IS NOT PERMISSIBLE 

21 REMARK/ ERROR DETECTED IN PHASE 2 

22 REMARK/ THE FOLLOWING STATEMENT CAUSES 

23 REMARK/ A HANG - UP IN THE GP. 



LIMIT IS THREE DEEP HOLE SEQUENCES 

2000 10.0 07$N0 EFF LENGTH 
2000 8.0 07$ 

8.0 07$N0 SPINDLE SPEED 



INCREMENTAL SEQUENCE 



2k DRILL, 1303/DAC{-1. 0,0.0) (-10. 0.0. 3, -0.5)/DP(0.7)DH(3)$ 



NOTE - INDICATED ERRORS WHICH CAUSED NO ERROR 
MESSAGE ARE DETECTED IN PHASE 2, OR IN 
THE POST PROCESSOR, OR NOT AT aL. 



Figure 3. General Processor Listing of Sample Processing 
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AUTO SWT PREPROCESSOR DATED 12/18/63 



1 REMARK/ PREPROCESSOR ERROR MESSAGES 

2 DASHA(3.5,2.75)$ 
MO TP $ 

3 DASHt-DASHA(0.0,5.25.-1.0)$ 
COUNT POINT -1.0 ) 
3 DASHB-DASHA(0. 0,5.25)$ 
NO TP $ 
k DASHC(9. 0,7.5)$. 
NO TP S 
5 CL(0.3)$ 


3 
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X,Y,Z ENTRIES SHOULD AGREE WITH DASHA 
ON-LINE CORRECTION RS 
SHOULD HAVE TABLE POSITION 



OHM. 0,1.0,1 
7 DH(0.5,0.3,0 
C DHM.0,0.5.0 
9 OH{0.5,0.5)i 
COUNT OH OH ( 
10 TOOL/DRILL 1301 



LIMIT IS THREE DEEP HOLE SEQUENCES 



0,25 



7.5 



2000 10.0 07$NO EFF LENGTH 



2000 



8.0 

n.o 



07$ 

07$N0 SPINOLE SPEED 



INCREMENTAL SEQUENCE 



TOOL 1301 T I PANG SET 1 1 S.O EFFLENG SET 07. 

11 TOOt/SPORL 1302 0.5 120.0 7.0 

12 TOOL/OR ILL 1303 O.k 119.0 6.5 
TOOL 1303 EFFLENG SET 06.3022 
TOOL 1303 NO SS 

13 START$ 

1i» PATWDAA,SX(0.0)SY(0.0)EX(9.0)NH(5)$ ^ v 

15 PAT2=.SPORl, 1302/PAT1/DI(0,2)THEN,PATl(0.0. 1 .0)THEN, PAT 1 ( 2 . 75, 2.0) .H(yO.O)$ 

16 OR ILL, 1 301 / PAT 2/ DO ( 2 .0)DH( 1 / DW$ DQ SHOULD BE DP 
C FORI I AUX DO ( 

16 DRILL, 136l/FAT2/DP{2.0)DH(1 )DW$ ON-LINE CORRECT IOM IS 

17 PAT^=/PAT1(';.0,0.0)THEN,PAT1(6.0,0.0)THEN 1 PAT1(7.0,n.O)$ 
13 DRILL, 1303/REV,PAT3/DP(i.0)DH('t)THEN, DAB, PAT3, THEN, DAC, PATj 5 CM ^ WPPMG 

C PAT MAN IP PAT3 / 

18 DRILL, 1303/PAT3/DP(2.0)DH(»OTHEN, DAB, PAT3, THEN, DAC, PAT3$ ON-LINE CORR. 
C UNDEF DH k ) 



DRILL, 1303/PAT3/DP(2.0)DH(3)THEN, DAB, PAT3, THEN, DAC, PAT3$ ?ND 
REMARK/ REVERSAL OF SECOND GENERATION $ 
REMARK/ PATTERN IS NOT PERMISSIBLE $ 
REMARK/ ERROR DETECTED IN PHASE 2 $ 
REMARK/ THE FOLLOWING STATEMENT CAUSES $ 
REMARK/ A HANG - UP IN THE GP. $ 
DRILL,1303/DAC(-1.O,0.0)(-10.O.O.3,-O.5)/DP(O.7)DH(3)$ 



18 
19 
20 
21 
22 
23 

2V , 

C FORM MINOR -10.0 . , 
2U DR|LL,1303/DAC(-1.0,0.0)(-10.0,0.3,-O.5)/DP(0.7)DH(3)$ 

25 riMi$ 

END PREPROCESSOR 



CORRECTION 15 



ON-LINE CORRECTION 



Figure 4. Autospor Preprocessor Output 



2oZ 



7 



AUT9SP0T PREPROCESSOR DATED 12/18/63 



1 REMARK/ RE-RUN OF EDITED SOURCE DECK 

2 DASHA(3.5,2.75)$ 
NO TP $ 

3 DASHB-=DASHA(0.0,5.25)$ 
NO TP $ 



ON-LINE CORRECTION 



07. 1 *2'*S2000 
2000 

06.3822 



10.0 
8.0 
8.0 



07$ HO EFF LENGTH 
07$ 

07SN0 SPINDLE r PEE! 



I» DASHC(q. 0,7.5)$ SHOULD HAVE TABLE POSITION 

P NO TP $ 

5 CL(0.3)$ 

6 DHl 1 .0, 1 .0, 1 .0)$ 

7 DH(0. 5, 0.3,0.3)$ 

8 DH(1 .0,0.5,0.5)$ 

10 TOOL/DRILL 1301 0.25 11C.0 7.5 

11 TOOL/SPDRL 1302 0.5 120.0 7.0 

12 TOOL/DRILL 1303 0.1* 119.0 6.5 
TOOL 1303 NO SS 

13 START$ 

1U PATWDAA,SX(0.0)SY(0.0)EX(9.0)NH(5)$ INCREMENTAL SEQUENCE 

15 PAT2=SPDRL, 1302/PAT 1/01(0, 2 )THEN, PAT 1(0.0. 1 .0)THEN PAT 1(2.75, 2.0)AT(»0.0)$ 

16 0RILL,1301/PAT2/DP(2.0)DH(1)DW$ ON-LINE CORRECT ION 

17 PAT3-/PAT1(5.0,0.0)THEN,PAT1(6.0,O.O)THEN,PAT1(7.0,O.0)$ 

18 DR I LL, 1 303 /PAT 3/ DP ( 2 ,0)0H( 3 )THEN, DAB, PAT 3, THEN, DAC, PAT 3$ 2ND CORRECTION 

19 REMARK/ REVERSAL OF SECOND GENERATION 5 

20 REMARK/ PATTERN IS NOT PERMISSIBLE $ 

21 REMARK/ ERROR DETECTED IN PHASE 2 $ 

22 REMARK/ THE FOLLOWING STATEMENT CAUSES \ 

23 REMARK/ A HANG - UP IN THE GP. > 

2U DRILL, 1303/DAC(-I .0,0. 0)(-10. 0,0. 3,-0. 5)/DP(0.7)DH(3)$ ON-LINE CORRECTION 

25 F|NI$ 

END PREPROCESSOR 



Figure 5. Edited Program Deck (Rerun) 
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MANAGEMENT INFORMATION 



There are different reasons why one may address himself to and accept 
the challenge of discussing, presenting, or reviewing a given topic. He 
may be an authority on the subject and discuss it in that capacity, or he 
may hold a position of responsibility in which the method may be applied 
and so discuss it from that point of view. When I was invited to present 
this paper, I was aware that my qualifications are not those of an 
authority but rather those of a practitioner in the field of Management 
Information. An interest in the subject and a recognition that there is 
applicability in present day business management provides motivation for 
preparing and presenting these remarks. 

One way of organizing material for a presentation such as this 
would have been to search the literature and quote the authorities. I did 
not do this but rather elected to speak on the subject as I see it in 
general and somewhat specifically in my company. If a bibliography of 
writings on this topic were to be assembled, I am sure it would be impressive. 
I am also sure that the list of articles on the subject will grow at an 
increasing rate in the years before us and that our present state of 
knowledge and level of practice will be dwarfed by future developments. 

My comments will be organized around the following points: 

1. A review of what constitutes information. 

2. A definition of terms that are associated with the subject. 

3. A brief discussion of the functions that constitute the totality 
of company activity. 

k. The s1;ate of the business world with special concern about th« 
need for scientifically developed Management Information. 
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5. Relationships among Management Information, the computer, and 
personnel . 
Information 

In discussing this topic one must soon come to grips with what is 
meant by the word "information", and what the connotation must be when 
used in discussing business problems. A dictionary or academic definition 
may add a note of scientific precision to this presentation but, in keeping 
with the intent of the paper, it seems more appropriate to define the word 
by using it in context for a few paragraphs. It is the intent here to 
define its meaning as used in the language of business decision making. 

Let us first agree that usage of the word suggests the addition of 
something new to the hearer's store of knowledge. Let us also agree that 
this information may be used as the basis for making decisions, either in 
the business world or in private lives; that it will be used as the basis 
for setting in motion courses of action. We must agree, if the preceding 
has been accepted, that information must have some value; that is, it must 
be appropriate, accurate, and it certainly must be timely. 

We can quite likely agree that information, in part, may consist of 
reports, lists, graphs, comparisons, counts, or any other statements that 
something is or is not. In a moment we will be considering that information 
might be classified as available before an act takes place or after an act 
takes place, thereby giving it a form of time dimension. 

A common example of information that is available after an act has 
taken place is found in performance measurements. These would include data 
on production to date, sales to date, costs incurred, capacity utilized, 
asset position, and liability position. Position records such as earning 
statements and the balance sheet could be looked to as other examples of 
information made available after an act has taken place. In all of these 



cases, the information is an accounting for something that has happened or 
a position that has been reached. 

Information that is made available before an act takes place is of 
considerably greater interest, in this paper, than af ter-the-act 
information. Examples of this are found in a broad category of planning 
statements. The document or report that describes plans for expanding 
production capacity, for entering a new market, for assigning facilities, 
and others of this type constitute information before an act takes place. 

It is the intent in this paper to consider an important and necessary 
element in the information that is generated in the' bef ore-an-act-takes- 
place category. This is the element that changes information from a 
recitation of facts to true decision-making support. We might think of 
this element as that property in the totality of information that answers 
the question about what the consequences would be to taking alternate 
courses of action. It is, therefore, to some extent, a plan and a 
prediction. 

In past years and currently, the element has to a greater or lesser 
degree been supplied by management; that is, the decision maker. The 
advances made in methodology and equipment have given support to the 
organization of information-generating groups who, as technically trained 
management science practitioners, are able to provide this element. The 
change that this implies, within the area of Information Generation, may 
either be advocated or predicted. In either case it is taking its place 
on the scene of business operations. 

The relative effort spent on developing information by the before and 
after categories is an indication of company vitality. Information after 
the act might be compared to the rear view mirror in an automobile. By 
looking into the mirror the driver is able to see where he has been. It 
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follows that the more strategically located and the larger that mirror 
the better the view will be of where the driver has been. 

Information before the act is then likened to the windshield of the 
automobile. If this is large and clear, the driver is able to see where 
he is going and can take steps necessary to get him there fast and safely. 
The relative size of the windshield in comparison to the rear view mirror 
is important in an automobile and it certainly is important in the 
operation of a business enterprise. 

It must be recognized at this point that these remarks are concerned 
with degree rather than absolute lack of conformity to the concept being 
discussed. Historical information has and always will be used for 
preparing predictions, and analysts have always contributed toward producing 
that element within the totality of information upon which decisions can 
be based. It is argued, however, that considerably more effort should 
be directed toward using the analytical techniques known to management 
science personnel, and that this be used to generate decision-making 
information before it is given to management. The decision maker; that is, 
the manager, should be in a position to ask the question, "What will 
happen if I take this or if I take that course of action?" The management 
scientist, using the analytical tools available to him and working with 
historical data, is able to add that element which will make it a more 
reliable basis for planning courses of action within the business enter- 
prise . 

Definition of Terms 

It will be convenient, for expository purposes, to define some terms 
and expressions that are used in discussing the activities in the business 
world. The definitions p^e not intended to be precise in the academic 
sense but rather as cl;ii if ications for the purpose of presenting views in 
this paper. 
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A. Business Problems 

The activities of a business enterprise constitute a process 
in which the resources under the control of the business firm 
are used, in a production phase, to create added value and then 
to bring into a realization that added value through a distribution 
and marketing phase. Business problems exist because the total 
process does not operate without disturbances. Resources, 
including materials, supplies, facilities, and the skills of 
employees are limited and imperfect. There is resistance in 
the market to paying more than necessary for the products of the 
business enterprise and there is a constant need for attention 
to the mechanism of the production phase. The existence of these 
disturbances, as well as the need to plan for the growth of the 
enterprise, constitute business problems. 

B. Courses of Action 

These relate to the steps that are and must be taken by 
management to correct a business problem. The Gourse of action 
is therefore simply the doing of something, the execution of the 
plan that resulted from a management dicision. 

C . Dynamic 

A moment's reflection on the business problem and its 
resolution in a business enterprise suggests that many problems 
occur repeatedly. In fact, it will soon be observed that the 
majority of the operating problems are recurring. The frequency 
with which they occur and especially the speed with which they 
can be resolved play an important role in the competitive position 
of a business enterprise. These observations partially provide 
the basis for describing a business, especially as measured by its 
problems, as dynamic. 
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D. Information Retrieval 

This term relates to a fairly well-defined process of 
cataloging the content of articles, abstracts, hooks, and 
the like and for providing a means for locating the document, 
or a brief statement of its content, in response to the user's 
need. Management Information, the title of this paper, is not 
related to Information Retrieval except as the latter may be a 
part in the process of generating decision-making information 
for management. An issue is made of this comparison since 
there is a possibility far confusion, the belief that the ability 
to rapidly extract data from files will serve the need of manage- 
ment for information. 
Functions of a Company 

The totality of activity associated with the operation of a company 
can be categorized in various ways. To focus attention on a specific 
function, the generation of information, four categories are formed, which, 
by definition should include all the activities that can and do take place 
in a business enterprise. These categories include: 1. Production- 
Marketing-Distribution. 2. Recording and Control. 5. Decision Making. 
4. Information Generation. 

Production, marketing and distribution, the operations function in 
a company, include the obvious activities of utilizing facilities and 
resources to produce something, to market it, and to move it through the 
distribution channels into the consumer's hands. In a processing industry 
such as the canning industry, this will appear as, and in fact is, the 
dominant function of the enterprise. 

The activities of maintaining company operations records, company 
operating plans, and providing a measure of performance against plans 
constitute, in part, the function of recording and control. There is 
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obviously considerably more that could be said about this and about the 
operations function, but since it is the objective in this paper to discuss 
Information Generation, further elaboration on these other functions will 
be omitted. 

Decision making is a function that is executed at all levels of 
company operations. As a first impression it appears that this might be 
a function reserved for the top executives. This is not true, however, 
since the worker on the line must, and does, make decisions, or at least 
apply a measure of judgment, in operating a piece of equipment or using 
a resource. Top executives make decisions about such matters as finance, 
plant or production expansion, personnel assignments and the like. The 
vast majority of the decisions in any business enterprise, however, are 
made by the operating and management personnel between the line worker and ^ 
the top executive. In any case, the decisions at all levels must be 
appropriate and they must be timely. The skill with which this function 
is executed will be reflected in the effectiveness of the operations 
function and also in the effectiveness of recording and control. 

If it is agreed that setting in motion the appropriate courses of 
action at the different levels in a company is dependent on the quality 
and timeliness of decisions, the foregoing statement is obviously supported. 

The function to be discussed in greater detail in this paper is that 
of Information Generation. The importance of this is underscored by 
recognizing that the function of Decision Making is not executed in a 
vacuum, it is not independent of the other functions. A course of action 
within the operations function is not put into motion unless there has been 
a decision to do this and unless there has been a decision to commit certain 
of the company's resources. 

The basis upon which a decision is made, however, is that of the 
information available to the decision maker. Information about the process 
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and information developed in the planning sense must be ofered to the 
manager, the person who will translate it into a decision. It is at this 
point that the function of Information Generation achieves its significance. 
State of the Business World 

Business decisions are not made in a vacuum and business enterprises 
are not operated independently of the business world environment. One of 
the characteristics of the business world, it is contended, is that changes 
are taking place rapidly and that the function of decision making, as a 
result, is becoming increasingly complex. 

If we accept as true that there is, in fact, a rapidly changing climate 
in the business world, then we must also accept that the advanced techniques 
for coping with these changes must be developed and applied. It is 
especially required that support for decision making be made available 
accurately, adequately, and timely. This constitutes the heart of the 
-total Management Information idea. 

Technology in problem solving has changed and has improved very 
Tapidly during recent years. The mathematical methods of linear programming, 
critical path analysis, inventory control, estimating, forecasting, and 
many others "have been developed, improved, and made available to manage- 
ment. Books, articles, courses, and seminars have been employed during 
the years since World War II to disseminate the information. 

It is of special interest to observe that the mathematical techniques, 
if considered by themselves, are of limited value. These techniques must 
be a part of the total problem solving system if they are to be of service 
to a business enterprise. The process of information generation is built 
around this concept. It is one of the objectives in this paper to demonstrate 
that information, in addition to being a record or recitation of events that 
have taken place, also includes those elements of information that will point 
up the most ideal steps that can be taken in the decision-making process. 
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Another characteristic of the business world today, in comparison to 
past years, is the intensification of competition and its attendant 
problems. New products are coming on the market at a faster pace and the 
costs of developing them are higher than was true several years ago. The 
advantage to the company developing a new product, it is contended, is 
either short lived or the margin of profit is narrow. This is the result 
of competition not only among manufacturers of the same product, but among 
all manufacturers competing for the consumer's dollar. This underscores 
the necessity for having pertinent information available to management, 
information that can be used as a basis for rapidly formulating decisions 
and effecting courses of action. The significance of these observations 
is in the necessity for much faster action than in previous years, and for 
fewer mistakes in committing companies' resources to an operations course 
of action. 

A single development that has- been instrumental in stepping up the 
pace of business activity, and has alsxi been providing a means for 
servicing the stepped-up pace, is that of the computer and the technology 
for programming and operating it. This combination of equipment and 
technology has made possible the rapid processing of voluminous data, as 
well as analyzing data complexes such as are common to the management 
science field, The reduction of voluminous records and the evaluation 
of complex sets of data provides a source of information that has not been 
available in the past. 

In addition to the data processing equipment, there has been develop- 
ment in communications which makes possible real time or near real time 
data analysis for decision making. All of this clearly dictates the need 
to develop a system through which the tools of information generation can 
be employed most effectively. It must be possible to develop clear and 
concise elements of information that can be used in the decision-making 
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process with a minimum of further analysis or data reduction by the user; 
that is, by the decision maker, 

A logical consequence of the foregoing is that management by exception 
will be and must be practiced. It is not possible and certainly not 
necessary for a manager to weigh all the facts that can be developed by 
an information generation system. Rather, he must be given those elements 
of information to which he can add his skills and thereby reach the 
decisions that are most beneficial to the company. 

It is also necessary that the Information-Generating process produce 
facts that can be translated directly into routine courses of action. A 
certain percentage, perhaps quite high, of this type of tasks in a company 
can be reduced to decision rules that can be operated upon by an electronic 
computer or, at most, require clerical attention. The net result is that 
this will leave additional time to the manager to deal with the more 
complicated decision problems, problems that cannot, or at least not very 
readily, be reduced to a decision rule. 

The intent of these comments has been to demonstrate that the role 
of the manager, decision maker, is changing rapidly as a result of the 
technological advances. The business climate within which the decision 
maker works is being changed by him and in turn requires that he change 
with it. He is, in a sense, a victim of his profession. 
Relationships Among Management Information. The Computer, and Personnel 

The remarks to this point have been intended primarily to set the 
stage for a detailed review of the Information Generating function, its 
place in the company, and the iirpact it may have upon the Decision-Making 
process. Its impact upon the personnel involved and a review of the 
current state of the art will be considered briefly. As a point of 
departure, it will be well to take a look at what is meant by "Information 
Generation." 
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lt certainly is a function and it has a place among those that define 

the totality of company activity. Information generation is not new. Rather 

it has been practiced as long as businesses have been operated. The method 

for doing it, especially its organization within the company, have changed 

over the years and the importance it has played and plays now is certainly 

changing. It shall be the objective in the following sections of this 

paper to present views as to what constitutes Information Generation, how 

it has changed over time, and what might be expected in the future. 

We may think of this function as an operating process with inputs, 

service, and output stages. This analogy with the operations functions of 

a company will provide a convenient medium for presenting some of the 

basic ideas. 

The inputs to the process initiate at various sources. Company 
accounting records provide data on costs such as those for personnel, 
power, raw materials, supplies, and others. Operating standards-, capacities, 
and facilities availability data can generally be obtained from company 
engineering records. Prices of merchandise offered for sale become 
available from the company's marketing department. 

Institutional data constitute another input to the process. These 
would include such items as taxes, insurance, interest rates, freight rates, 
economic indicators, and the like. Agency data, such as facts about 
industry stock position, and industry prices provide a third source of 
input. A fourth source would need be recognized to include estimates by 
knowledgeable persons. There are many blanks in the data requirements 
associated with a given analysis, blanks that must be filled before the 
analysis can be made. In many cases the best estimates of knowledgeable 
persons will constitute the total availability of this type of input 
information . 

The input information is directed into the service phase of the 
information-generating function, an area designed for and increasingly 
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delegated to the management science personnel. By way of contrast it 
might be observed that the service phase could be limited to the 
organization of data into reports, tabulations, graphs, ratio tables, 
and the like. This service could be and likely would be provided by the 
general accounting or by the cost accounting groups of the company. The 
management science personnel, however, are, or at least should be, 
qualified to add that element to the information flow which changes it 
from a presentation of history to a basis for deciding upon a course of 
action. 

The management science contribution at this point should therefore 
be to work with operating personnel, decision makers, and upon recognition 
of a business problem, define and formulate it for the analysis phase. 
After the problem has been defined, it is obviously required that the 
actual solution be effected and the results prepared in a form that will 
be most useful to the decision maker. 

There is an impressive array of analysis tools available to the 
management scientist with which he is able to cope with the complexities 
of the problems to which reference was just made. 

It is not the intent in this paper to discuss in detail the analysis 
tools that are available. It is rather the intent to describe some of 
the characteristics of the analysis methods and to support a claim that 
many and powerful tools of this type are available. Some of the 
characteristics, with which these analysis techniques can cope, are: 

1. There are involved, inter-relationships among the factors of 
the problem. These are inter-relationships that cannot be 
dealt with readily by means other than an appropriate mathematical 
formula and the necessary computing facilities. An example of such 
a problem is the one in which shipping schedules are formulated. 
The factors of this problem are the supply of the homogeneous 
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product at a number of origin points, the demand for the product 
at a number of destination points, and the shipping cost per unit 
for moving a unit of the product from a point of origin to a 
point of destination. The objective in the solution is to find 
that combination of routes which, if followed, will transfer the 
merchandise from the points of origin to the destinations at the 
lowest possible total freight cost. In working with problems of 
this type, it is soon found that interaction frequently necessitates 
the use of the rates, other than the lowest because, if this were 
not done, another rate of even greater disadvantage would be 
forced into use. This is all brought about by the complex 
inter-relationships of the factors in the problem. Solution to a 
problem of this type is brought about readily with the analytical 
tool known as the Transportation Model. 

2. In these problems there is either a maximum or a minimum that 
must be found and that serves as a criterion in evaluating the 
solution. In the Transportation Model, the minimum freight bill 
is found, whereas in another type of analytical tool a maximum 
profit might be found. 

3. The solutions to problems may lead directly to the application 

of results in a routine type course of action or they may lead to 
alternative courses of action in a planning type analysis. In the 
latter case various conditions might be evaluated through a 
simulation of the process. 
In direct solutions there must have been a prior implementation of 
the procedure so that the results of a given analysis can be fed directly 
to it. This is a form of automated decision making. 

In another case, the output of the information-generation process, 
frequently involving simulation, takes the form of a report to management. 
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The manager or decision maker receives this information and adds to it 

his knowledge of the process. This, then, is the basis upon -which decisions 

about a course of action can be made. 

In the discussion of the service phase of this function it was 
pointed out that direct solutions might be used in implementing courses of 
action where a procedure has been implemented and where the course of 
action is routine. In those cases where that is not done, there is 
management by exception; that is, the manager is concerned with those 
steps in the operation of a business that cannot be processed or put into 
force through decision rules programmed into an electronic data processing 
system. 

The output from the service phase of the information-generating 
process may therefore take two foxms. It may be a decision rule that can 
put into effect routine courses of action through the medium of -the data 
processing system or the int 3rvention of a clerk. In the other case, and 
in a more important sense, the output will be guides -for personnel in the 
decision-making function who will act to initiate those courses of action 
that are associated with planning and the operations function of the 
company. 

A system does not function without people, and therefore, consideration 
must be given to the personnel involved in the Information-Generating 
function. Just as there is no clear distinction between persons involved 
in the decision making and in the operating functions, there is also no 
clear distinction among persons involved in information generation and the 
other functions in the company. It is rather to be found that the persons 
in the company are or should be aware of this function and become associated 
with it in whatever position they may hold. They may be involved directly, 
as suppliers of data, as a user of the output, or in a capacity that is a 
combination of these. 
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A logical way to establish who is part of the inf ormation-rcnerating 
function and what the relationship between those persons and others outside 
that function is, is to consider this in the light of information flow. A 
look at the input-service -output analogy discussed in the preceding section 
will provide some guidance. 

The output of the Information-Generating function is the input to the 
Decision-Making function and takes the form of reports that have been 
developed from prime data. The prime data is the input to the Information- 
Generating system. The personnel involved, therefore, include those 
responsible for supplying data from prime records, those who analyze the 
data, and those who deliver the output to the decision-making personnel. 

A question that can and must now be considered is concerned with the 
relationship between accounting and management science personnel. If an 
integrated and consistent flow of information is to be generated it is 
not reasonable to expect that some reports into the decision-making process 
shall originate in the accounting group and others in the management science 
group. There can be no guarantee that such an arrangement will assure 
consistent and noncontradic tory information. It creates the possibility 
of sending still picture type of information into the Decision-Making 
process when the dynamics of the business call for information of the motion 
picture type. The conclusion that follows from these comments is that the 
Information-Generating function must be organized and managed in such a 
way that it will assure the generation of the most valuable information 
possible and that it will be sent in its most appropriate form into the 
Decision-Making function. 

The comments made in the preceding paragraphs suggest that there might 
need be a change in the concept of information generation today as compared 
with that applying in past years. The idea of information generation is 
not new, but some concepts associated with the total management information 
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methods has in it aspects to which there must be adjustment by the personnel 
involved in that function. Some observations about the difference of 
concept may be itemized as follows: 

1. Reports based on individual studies could be, and many times 
should be, replaced by information logs derived from a series 

of simulation analyses. This replaces the static snapshot report 
with the dynamic motion picture type report. 

2. Reports of individual projects will be, and certainly can in 
many places, be replaced by the results of team effort. Teejn 
effort has in its favor, many attributes even though it does 
carry with it the problem of rivalries, and other problems 
associated with having persons work as a team. 

3. A greater reliance will be placed on decision rules programmed 
into the data processing system. This will be true partly 
because of the much greater magnitude of data that needs be 
reviewed and also because of the analytical and data processing 
techniques that are available for accomplishing this. This will 
lead to greater emphasis on management by exception. 

k. The environment or climate within the company must be created in 
which the Information-Generating function can be executed 
effectively. Managers must realize that the working paper study 
or report cannot and does not give them all the information they 
need for decision-making responsibilities. The manager must also 
learn to accept that a large part of the routine decisions for 
which he may be responsible can be processed on electronic equip- 
ment. The reluctance to relinquish detailed control over the 
activities for which he is responsible can prove to be one of the 
greatest hindrances in establishing a management information 
system. 
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S' It must be recognised that the electronic data processing equip- 
ment can serve a purpose much greater than that served in billing, 
processing accounts receivable and accounts payable, recording 
inventory and the like. The electronic equipment properly 
managed by technically trained management science personnel can 
produce that element in the Information-Generating function that 
could tip the scale from mediocre to high level and effective 
decision making. 

In summary, let "us conclude that management information is the 
product x>f our efforts which, when coupled with a well-executed 
Decision-Making function, puts into effect the correct courses of action 
with respect to business problems, and which in turn find expression 
in profit generation. 



22/ 



4 



KINGSTON FORTRAN II 
FOR THE IBM 1620 DATA PROCESSING SYSTEM 



by: 

J. A. A. Field, 1 D.A. Jardine, 2 , E.S. Lee, 1 
J.A.N. Lee, 3 and D.G. Robinson 2 



Presented at the Joint Canadian-Midwest Region 
Meeting of the 1620 Users Group, Chicago, 
February 19-21, 1964 



i. Dept. of Electrical Engineering, University of Toronto, 
Toronto, Ontario. 

a. Research Centre, Du Pont of Canada Limited, Kingston, 
Ontario 

3. Computing Centre, Queen 1 s University, Kingston, Ontario 



ACKNOWLEDGEMENTS 



During the early stages of developing this system, 
many people in the 1620 Users Group were canvassed for 
useful ideas on compiler and systems construction. To all 
those who, in any way, contributed to this venture, the 
authors extend their heartfelt thanks. 

We would like to recognize the following people 
who made particularly useful contributions to the project: 



J.W. Holmes 1 - for his extremely well written arithmetic 

and function subroutines which appear, with 
some modification, in this system. 



F.H. Maskiell 2 - for many helpful suggestions, particularly 

in the coding and testing of the arithmetic 
and function subroutines. 



C.H. Davidson 3 - 1620 Users Group representative on the 

A.S.A. Fortran II subcommittee, for 
explaining to us the structure of American 
Standard Fortran II, and for pointing us 
in the right direction for extending the 
language . 



i . 

3 . 



Cooper -Bessemer Corp., Mount Vernon, Ohio. 
McGraw-Edison Corp., Penn. Trans. Div., Canonsburg, Pa. 
University of Wisconsin, Madison, Wis. 



- 1 - 



HISTORY 



The writing of compilers seems to be one of the 
more popular pursuits of the members of the 1620 Users 
Group. At least six different FORTRAN compilers for the 
1620 have been written by non^IBM personnel, which 
testifies to the enthusiasm and ability of 1620 users and 
to their very real desire to build the best possible 
mousetrap. 

All previous user -written compilers have accepted 
variations of the FORTRAN I language, with the exception 
of the University of Wisconsin FORGO, a load -and -go 
compiler for student problems, which accepted a somewhat 
restricted FORTRAN II. To our knowledge, KINGSTON 
FORTRAN II is the first user -written FORTRAN II for the 
1620. We hope that this initial effort will encourage 
others to tackle the problem and improve on our system in 
the same way that improvement followed improvement in the 
user -written FORTRAN I compilers. 

The initial impetus for KINGSTON FORTRAN II came 
in about August 1963, from those of us living in Kingston, 
Ontario, when we started to find out how UTO FORTRAN 
operated, with the intention of providing a suitable 
FORTRAN for a 4oK 1620. It soon became apparent that 
many useful features of FORTRAN II could be incorporated 
at little extra work. Messrs. Lee and Field, authors of 
UTO FORTRAN, were approached for ideas and suggestions, the 
outcome of which was a decision to join forces. After some 
preliminary discussion, it was found that it would be no 
more work to write a whole new system than to make the 
desired alterations in UTO FORTRAN. 

The basic concepts were conceived in three 
rather long evening sessions during the October 
1620 Users Group Meeting in Pittsburgh, Pa. By the end 
of this meeting the source language structure and the 
organization and general logic of the compiler were 
developed and agreed upon. The various sections were 
then allocated to the individuals best qualified to 
handle them. By the first week in January, the main 
sections of the compiler had been written and tested 
and it remained to tie the pieces together in a operating 
system. This was done in Kingston, Ontario, during late 
January, when all 5 authors worked for five days on two 
identical 40K l620 , s (Du Pont of Canada and Queen 1 s 
University). 
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We hope that Users with kOK l620*s will find the 
system useful and easy to operate. We have tried to 
include every useful idea from other people 1 s efforts so 
that the system would be as speedy and compact as possible. 

The work was divided as follows: 

J.A. Field 



D . A . Jard ine 

E. S. Lee 
J.A.N. Lee 



- Input/Output statements, DO statements, 
input/output subroutines, FORMAT 
statement. 

- Arithmetic and function subroutines, 
write-ups and operating manuals. 

- Compilation of arithmetic expressions. 

- Compilation of everything not handled 
by the other authors . 



D.G. Robinson - Symbol table organization, including 

COMMON, DIMENSION, EQUIVALENCE, TYPE. 
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KINGSTON FORTRAN II 



This write-up describes a FORTRAN system for the 
IBM 1620 equipped with automatic division, indirect 
addressing, additional instructions (TNS, TNF, MP), 
card input-output and minimum 4oK memory. It is assumed 
that a Model E-8 or larger 407 is available for listing. 

The language is that of IBM's FORTRAN II with a 
few modifications and a number of additions. For the 
purposes of this write-up it is expected that the reader 
is at least on speaking terms with the FORTRAN II 
language . 

The compiler for this system batch compiles a 
source program in one pass, at approximately twice the 
speed of existing compilers for the 1620. The execution 
speed of the object program is also approximately twice 
that of IBM's FORTRAN II. Considerable effort has been 
made to speed up all important parts of the system; in 
addition, more core storage is available for the object 
program than existing FORTRAN II compilers allow. 

SOURCE PROGRAM CARDS 

These are as required for IBM FORTRAN II. Any 
number of continuation cards are possible, but the 
statement may not contain more than 300 characters 
(blanks not included except in Format statements). 

ARITHMETIC PRECISION 

Real numbers: 8 digit mantissa, 2 digit exponent. 
Notation is excess 50; (i.e. 1.0 » 5110000000) 
Integer numbers: 4 digits, modulo 10000 

VARIABLES 

These are as in IBM FORTRAN II. 1 to 6 
alphabetic or numeric characters, starting with a letter, 
which, for integer variables, must be one of I, J, K, L, 
M, N, unless otherwise specified in a TYPE declaration. 

SUBSCRIPTS 

A variable with, at the most, two subscripts 
appended to it can refer to an element of a one- or two- 
dimensional array. Three dimensional subscripting is not 
permitted. A subscript may be an expression of any 



desired complexity, provided only that the result of the 
evaluation of the expression be an integer quantity. 
This should be positive if you want to avoid trouble. 
However, a zero or a negative subscript can be used. To 
use this effectively, the programmer must know how data 
areas are laid out in memory. See the operating 
instructions: 

Examples of Subscripts: 

I 

2+MU 
MU+2 
J*5+M 
5*J 

6*J-K+2-10/L+M 

4 * J ( K+2 -L+M ) +K (M ( N+2 ) ) 

FIXF(A*B+3.0**SIN(X) )+L/2 

The variable in a subscript may itself be subscripted, and 
this process of subscripting may be carried on to any 
desired depth of subscripting. It can, in fact, be carried 
far beyond the point where the average programmer understands 
what he is doing. 

SUBSCRIPTED VARIABLES 

Only singly or doubly subscripted arrays may be 
defined. The size of these must be specified in a DIMENSION 
statement. 



EXPRESSIONS 

These are defined and organized exactly as in IBM 
FORTRAN II. 

LIBRARY FUNCTIONS 



Ten library (closed) functions are included in the 
KINGSTON FORTRAN II System. These are listed in Table I. 
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TABLE 1 



Closed Subroutines 



Function 
Definition 

Sine of the argument 

Cosine of the argument 

Exponential (e x ) of the 
argument 

Natural logarithm of 
the argument 

Arctangent of the 
argument 

Arctangent of (arg x / 
argg ) 

Signum of the argument; 
—l.for X<0. ,=0. for 
X,0.,=+1. for X>0. 

Absolute value of Arg 1 
with the sign of Arg 2 



Function No. of 
Name ( s ) Arguments 



Type Of 
Function Argument 



SIN 
COS 
EXP 

LOG 
ATAN 

ARCTAN 

SIGNUM 
SIGN 



Choosing the larger value 

of the two arguments AMAX1 



Choosing the smaller 
value of the two 
arguments 



AMIN1 



Real 
Real 
Real 

Real 
Real 

Real 

Real 
Real 
Real 

Real 



Real 
Real 
Real 

Real 
Real 

Real 

Real 
Real 
Real 

Real 



Table 2 lists the open or built-in functions . These are 
compiled in-line every time the function is referred to. 



Function 
Definition 

Absolute value of 
the argument 



TABLE 2 

Function No. of 
Name Arguments 



ABS 
ABS 



Type of 
Function Argument 



Real Real 
Integer Integer 



Table 5 lists closed functions which are permanently 
stored in the machine, whether or not they are mentioned by 
name in a FORTRAN source program. 
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TABLE 3 



Function Function 
Definition Name 

Floating an integer FLOAT 

Truncation, sign of 

argument times value FIX 

of the largest 

integer in the argument 



No. of 

Arguments 



Type Of 
Function Argument 



Real 



Integer 



Integer Real 



THE ARITHMETIC STATEMENT 

The arithmetic statement is the same as in IBM 
FORTRAN II except for the extensions in complexity of 
evaluation of subscripts. 



CONTROL STATEMENTS 

The control statement flexibility in standard 
FORTRAN 1 s leaves something to be desired, particularly 
where the program is complex and core storage is at a 
premium. These conditions, it might be noted, are the 
normal ones for almost all problems. KINGSTON FORTRAN II 
attempts to improve this situation by expanding the 
capabilities of the ASSIGN and assigned GO TO statement 
and by extending the ASSIGN concept to the other control 
statements . 



ASSIGN STATEMENT 

ASSIGN i to n 

In IBM FORTRAN II, the ASSIGN statement is used ' 
only in conjunction with an assigned GO TO statement. 
For instance, 

ASSIGN 3 TO J 

GO TO J, (3,5,9,243) ' 

will cause a branch to the statement numbered 3 . < 

The effect of the ASSIGN statement is to "equate" < 
the non-subseripted integer variable J to statement number i 
3. The subsequent GO TO J, (3,5,9,243) is then interpreted 
as GO TO 3. 

I 

fn { 

V y 
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In KINGSTON FORTRAN II, this concept has been 
modified and expanded considerably. To describe these 
changes, the following definitions are used: 

Statement Label - A statement label is the name attached 
to the memory location containing the first instruction 
compiled from the statement identified by the label. There 
are two kinds of statement labels: 

Numeric Statement _Label - usually known as a 
statement "nuinBer . £n~unsigned integer number of 
from one to four digits long. 

Alphabetic Statement _Lab el - A variable which may 
5e~su5scflp£ ecP-Eo any"*6TesIred complexity and which 
by one or more ASSIGN statements has been equated 
to a numeric statement label (statement number). 

It is most important to realize the difference between a 
statement label and an arithmetic variable. ASSIGN 3 TO J 
will place in J the address of the first instruction compiled 
from statement number 3. J = 3 will cause the number 0003 
to be placed in J. The sequence of statements 

ASSIGN 3 TO J 
GO TO J 

will cause a branch to statement numbered 3. However, 

J = 3 
GO TO J 

will result in disaster. Moreover, 

ASSIGN 3 TO J 
J = J + 1 
GO TO J 

will not transfer control to the statement numbered 4. 
Arithmetic on assigned variables is not permitted 5 assigned 
variables are not in any way the same as arithmetic variables, 
except that they may be subscripted and stored in an array. 
They may also appear in COMMON, DIMENSION, and EQUIVALENCE 
statements. 

It is possible in KINGSTON FORTRAN II, to equate two 
alphabetic statement labels by an ASSIGN statement. If the 
first statement label in the ASSIGN statement is , .alphabetic, 
it must be enclosed in parentheses. 



The following examples illustrate the ASSIGN statement 

ASSIGN 3 TO N (St. label M is equated to St. label 3) 

ASSIGN (N) TO J (St. label J is equated to St. label N) 

ASSIGN 3 TO I(K) (same as the line above. J must have been 

defined before this statement and I must be 
dimensioned). 

ASSIGN (I(K)) TO L(3+M/4-M**3) 

(same as above. The alphabetic statement 
labels can be subscripted as desired). 

Since the primary definition of a statement identifier is its 
occurrence as a statement number, it is necessary that any 
given statement identifier must ultimately be defined (through 
a series of ASSIGN statements if necessary) in terms of a 
statement number. Failure to observe this rule will cause 
trouble. For example, 

3 A m B 

ASSIGN (J) TO K(L) 

is not correct, because J has not been associated with any 
statement identifier when the ASSIGN statement is executed. 
However, 

3 A - B 

ASSIGN 3 TO J 
ASSIGN (J) TO K(L) 

is correct. 

Alphabetic statement labels may be used in the 
following control statements: 

GO TO (both unconditional and assigned) 

IF (SENSE SWITCH i) 

IF (arithmetic expression) 

Computed GO TO 

Alphabetic statement labels may not be used in a DO statement. 



GO TO STATEMENT 

GO TO n unconditional GO TO 

GO TO n, (n x ,n2, — n m ) assigned GO TO 
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where n is a statement label. If n is alphabetic, then it 
must previously have been defined in an ASSIGN statement. 
The assigned GO TO statement is treated exactly like the 
GO TO statement. The comma and parenthesized list are 
optional and will be accepted but ignored by the compiler. 

Computed GO TO Statement 

GO TO (n 1 ,n 2 ,n 3 — n m ),i 

where ni,n 2 n m are statement labels. If alphabetic they 

must have been previously defined by ASSIGN statements. 

i is a fixed point (integer) variable or expression, i may 

be subscripted as desired 

ARITHMETIC IP STATEMENT 

IP(a )n x ,n2 ,na 

where a is an integer or real (floating point) expression 
of any complexity, and ni,n2,n 3 are statement labels. If 
alphabetic, ni,n2,n 3 must have been previously defined in 
ASSIGN statements. 

IF (SENSE SWITCH) STATEMENT 

IP (SENSE SWITCH i)n 1 ,n 2 

where i is a one or two digit unsigned integer number or an 
integer expression, and n l9 ris are statement labels. If i is 
an integer expression, the low order two digits of the value 
of the expression are used as the value of i. The two digit 
numbers resulting from this are the numbers of machine 
indicators, not just console switches, 

THE DO STATEMENT 

DO n i = ii ,Bi2 ,m 3 

where n is a statement number, i is an unsigned integer 
variable which may be subscripted and m;L,m2,m 3 are 
integer variables or integer expressions of any desired 
complexity, positive or negative, n may not be an 
alphabetTc statement label, and i may not be an expression. 
There are no particular restrictions on m 1 ,m2,m 3 . In 
particular they may be positive or negative quantities. 
If mi=m 2 , the DO will be executed once only. m 1 ,m 2 ,m 3 
should be chosen so that the DO loop terminates. See below 
for an example of a never-ending DO -loop. 

Example : 



DO 5J = K+L-5, M-I(JOB(KK) ) , -L 
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If m 1 ,m2,m 3 are expressions, their values are the values of 
the expressions when the DO statement is encountered at 
object time, and these values are unaffected by alteration 
inside the DO of the values of the variables in the 
expressions m 1 ,m2,m3. 

As a result of allowing positive or negative values 
for mi ,ma ,m 3 , it is legal to have DO loops which count 
down. For example, 

DO > I = 10, 1,-1 

will cause I to run from 10 to 1 in steps of (-1). The 
following is also permitted. 

DO 10 J = -10,5,2 

which will cause J to assume successively the values -10, -8, 
-6, -4, -2, 0, 2, 4. If the DO variable assumes zero or 
negative values, it may be used, with caution, as a subscript. 
Intelligent use of negative or zero subscripts demands 
knowledge of the layout of data areas in memory , as described 
in the operating instructions . 

Care should be taken to see that the DO index 
terminates properly. For instance, 

DO 20 K = -10, -1, -2 

will increment nearly 5000 times before termination. The 
same is true of 

DO 40 K = 10, 1, 2 

Termination in both cases occurs because integer arithmetic 
is performed modulo 10000. 

All the restrictions on DO statements currently 
imposed by IBM FORTRAN II are also in force in KINGSTON 
FORTRAN, except as already mentioned. 

CONTINUE STATEMENT 

Same as IBM FORTRAN II. 
PAUSE STATEMENT 

PAUSE 

PAUSE n, where n is a fixed point constant, variable 
or expression. 



- 11 - 



The typewriter types PAUSE n, together with error 
messages (see operating instructions) and the machine halts. 
If n is a variable or expression, its current value is typed. 
PAUSE (without n) generates an in-line halt command; there 
is no typing. In either case, depression START will cause 
resumption of program. 



STOP STATEMENT 
STOP 

STOP n, where n is a fixed point constant, variable 
or expression. 

The typewriter will type STOP, followed by the 
current value of n. If n is not specified, STOP 0000 will 
be typed. CALL EXIT is then executed (see operating 
instructions). 

EHD STATEMENT 

END is an instruction to the compiler that the 
program is complete. An END statement must be physically 
the last card of the main line program and of each sub- 
program which is associated with the job. The END statement 
results in CALL EXIT except in a sub-program, where it is 
interpreted as a RETURN statement. 

FUNCTION AND SUBPROGRAM STATEMENTS 

FUNCTION and SUBPROGRAM statements are the same in 
KINGSTON FORTRAN as in IBM 1620 FORTRAN II, and the same 
restrictions apply. 

Because the compiler is one-pass, the subprograms 
are not compiled separately from the main program. See the 
operating instructions for further details. 



INPUT/OUTPUT STATEMENTS 

The INPUT/OUTPUT statements in KINGSTON FORTRAN II 
are similar to those of IBM FORTRAN II, except that 
expressions are permitted, as well as simple variables, 
in certain places in INPUT/OUTPUT lists. Indexed lists, 
array names (to handle a whole array) and all other standard 
FORTRAN II features are allowed. It is not necessary to 
specify a FORMAT statement number in an I/O statement. If 
no FORMAT statement number is given, the system will supply 
FORMAT (5N). See the description of FORMAT for an 
explanation of FORMAT (5N). 
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The permitted INPUT / OUTPUT statements are: 

READ (card input), ACCEPT TAPE, ACCEPT (input on console 
typewriter), REREAD (re-reads last input record), PUNCH, 
PUNCH TAPE, TYPE (console typewriter), PRINT (on-line 
printer). 

Indexed I/O Lists 

As in IBM FORTRAN II, the statement 

READ 10, ((A(I,J), 1=1,10), J=l,10) 

will cause 100 numbers (A (1,1) to A (10, 10) to be read into 
array A. Similarly, 

READ 10, ((A (I, J), I=K,L), J=M,N) 

will cause various elements of A to be read in under the 
control of the indices I and J. 

In KINGSTON FORTRAN II, the limits on the implied 
DO 1 s (I=K,L; J=M,N) may be expressions. Furthermore, the 
names of the input variables may be subscripted to any 
desired depth (not exceeding ko) . For example: 

READ 10, ( (A(I(K1), J (Ml), K1=K- J0B*2 , L+5 - J6 ) ,M1=M*8-MM9 , N-3*Nl8 ) 
will be executed as 

DO 100 Ml = M*8-MM9, N-3*Nl8 

DO 100 Kl » K-J0B*2,L+5-j6 

100 READ 10, A(I(K1), J(M1) ) 

where I and J are names of one-dimensional arrays which must 
previously have been defined. 

KINGSTON FORTRAN II permits the same kinds of 
expressions in indexing as are permitted in standard DO state- 
ments. The implied DO in and I/O list may run forward or 
backward, and may have integer expressions of any desired 
complexity. 

INPUT LISTS 

In an input list, the variables may be only simple 
variables or indexed variables. Input of expressions is 
meaningless, and not permitted. For example: 
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READ 10, M, Q, A(I(K+4*L), M (N-5*L+4 ) ) ,B 
is permitted, provided I, K, L, N and M are previously defined. 
READ 10, A+B-C(K) is not permitted. 



OUTPUT LISTS 

Output lists may be fully indexed lists, as 
described above. In addition, expressions may appear in the 
list as output quantities. For example: 

PUNCH 20, C*D/(L0GF(X-Y*Z)+10.3, Y, D 

will cause 

C*D/L0GF (X-Y*Z )+10 . 3 

to be calculated at the time the punch statement is encountered 
and its value to be punched, together with the values of Y and 
D, on a card, according to Format statement 20. The value 
of the expression in an output list is lost when it is 
output, and is not available for further calculation. The 
expression in an I/O list may be of any desired complexity, 
and may be indexed as required, either by DO statements, or 
by implied DO statements in the list itself. For example: 

PUNCH 20, ( ((C*SQRTF(A(I,J) )-M(I) ),I=l,L+4,3) ,J=I+1,K-.10,5) 
will cause values of C*SQRTF (A (I, J ) ) -M(I ) 

to be punched out for values of J from 1+1 to K-10 in steps 
of 5 and values of I from 1 to L+4 in steps of 3. 



ASSIGNED FORMAT NUMBERS 

Format statement numbers may be assigned by ASSIGN 
statements in the same way any other statement number can. 
Hence, input/output statements may use alphabetic statement 
labels in place' of Format statement numbers. For example, 
the following program is permitted : 

3 FORMAT (5(I3,F10.5)) 

4 FORMAT (515) 

5 FORMAT (517) 
ASSIGN 3 TO J 
ASSIGN 4 TO K(l) 
ASSIGN 5 TO K(2) 

READ J, (M(I),A(I), 1=1,5) 
DO 10 L=l,2 
10 READ K(L), (M4(I), 1=1,5) 
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Mote that the first statement will be executed according to 
Format statement 3, while the second READ statement will be 
executed according to Format Statement 4 when L=l, and 
according to Format Statement 5 when L=2 . 

The subscripted variables in all the above examples 
must previously have been mentioned in a DIMENSION statement. 



ARRAY NAMES IN I/O LIST 

As in IBM FORTRAN II, array names without subscripts 
may appear in I/O lists. Mention of an array name will 
cause the entire array, as specified in the DIMENSION 
statement to be input or output. Two dimensional arrays 
are handled column -wise - 

DIMENSION A (10,10) 
READ, A 

will cause the entire 100 elements of A to be read in, in 5N 
notation. The elements of A must be in order A (1,1), A(2,l), 
A(5,l), A(4,l), A(5,l)/A(6,l), etc. 



FORMAT STATEMENTS 

Format statements are, in general, equivalent to 
Format statements allowed in 7090/94 FORTRAN II. E, F, I 
and A conversion are permitted. Repetition of field format 
is allowed before E, F,I or A. Thus FORMAT (I2,3E12.4) is 
equivalent to 

FORMAT (I2,E12.4,E12.4,E12.4) 

Parenthetical expression is permitted in order to 
enable repetition of data fields according to certain Format 
specifications within a longer FORMAT statement. The number 
of repetitions is limited to 99. Thus, 

FORMAT (2(F10.6,E10.2),I4) 

The level of parenthesizing can be extended to a second level, 
thus : 

FORMAT (2(I4,2(F6.2,F8.3)) ) is equivalent to 
FORMAT (I4,F6.2,F8.3,F6.2,F8.5,I4,F6.2,F8.3,F6.2,F8.5) 

The depth of such nesting of parentheses must not exceed 5, 
which appears to be more than would ever be necessary. 
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N -Format 

Rigid format on input data is not always desirable, 
and in many cases makes key-punching more difficult. 
KINGSTON FORTRAN allows so-called "free form" input, as well 
as the more familiar fixed or rigid format. If the FORMAT 
statement specifies I, E or F format on input, then the 
input data record must conform to the normal rules for such 
format as specified in IBM manuals. However, if N format 
(denoting "free form") is used, the data numbers may appear 
anywhere on the card, and input is controlled by the input 
list. 

N format is used like E, F or I format except that 
no width or decimal point location digits are required or 
permitted. For example, 

READ 10, I, J, A, C, Z 
10 FORMAT (5N) 

will cause the program to read in a record of 2 integer 
numbers followed by j5 floating-point numbers. In N format, 
a number is defined as: any number of leading blanks, 
followed by a meaningful collection of digits, followed by 
1 trailing blank. Note that the blank column immediately 
following the right-most digit or character of the number 
is considered part of the number, and serves to delineate 
the right-hand end of the number. 

In the case of E numbers handled with N-format, 
blanks after the letter E are ignored, and the machine 
uses the next set of digits as the exponent. For example: 

bl.2345678E-05b 

will be interpreted as .000012^45678. 

The number bl .2345678Ebbbbb-05b 

will be interpreted in the same way. 

bl.2345678Ebbbbl03 

will result in an error condition (see operating instructions). 

bl.2345678E bb 00005 

will be interpreted as 123456.78. Leading zeros before 
either the mantissa or exponent are ignored . 
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An E- type number handled by N -format ends with the 
blank after the exponent digits. 

A FORMAT statement may specify N, E, F, I or A format 
as required, thus allowing both free and rigid format on the 
same card . Note that, in H format, if a floating point 
number does not have a decimal point, it is assumed to be 
after the low-order digit of the number. 

Some examples may help: 

READ 10, I, J, A, C, Z 

10 FORMAT (5N) 

The card might look like: 

bbl23bbbbbbl2bbbl6.3bbbbbl.2E6bl23000bbb etc. 



N Format requires only that at least 1 blank column 
follow the number. In this case, I, J, A, C, Z would be 
stored as 123, 12, l6.3, 1.2E06, 123000. resp. 

READ 11, I, J, A, C, Z 

11 FORMAT (13, 16, N, F10^3, N) 

The Format requires that I, J, G follow rigid f orma~t . 
The card might look like: 

bl2bbbl2bbbbbbl20.bbbbl234567bbbl6.8bbb etc. 

This would give the following results: 



Variable Value 



I 12 

J 120 

A 120. 

c 1234.567 

Z 16.8 



Mote that the F-specif ication for C starts on the 
first column after the blank following 120., (see the position 
of the arrow) since this blank is considered part of the 
value of an N-Format number. 

An output, N format is equivalent to 1PE14.7,1X 
for floating point numbers, and 15, IX for integer numbers. 
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N Format allows repeated format and parenthesizing, 
and follows the usual rules for them. 

If a number is positive, the output under E, F, I 
or N Format will not contain a leading plus sign. On I 
Format, no space is left for it, so that it is possible to 
construct a fully packed output record provided all numbers 
are positive. N Format generates a space for a + sign and a 
space following the number. 

If a floating point number is output under Iw Format, 
the integer part of the floating point number is convered to 
Iw Format. Thus 128342.56 output with 110 Format would 
appear as bbbbl28;342. 



SCALE FACTORS 

To permit more general use of E and F conversion, a 
scale factor followed by the letter P may precede the 
specification. The scale factor is defined such that 

SOJ9.1 e f actoi* 

Output number = internal number x 10 

Internal number = input number x 10~ scale ^ actor 

This operates exactly the same as in IBM FORTRAN II for the 
larger machines. For example 

FORMAT (2PF10.4) 

used on output will multiply the number by 100 before output. 
On input, it will divide the external number by 100 before 
storing it in the machine. 

On E-Format output, the effect of P-scaling is to 
shift the decimal point in the mantissa and to adjust the 
exponent by the amount of the shift. 

Thus, if FORMAT ( E15.8 ) , used for output, produced 
the number . 12345678E-04 , then FORMAT . (5PE15.5) would produce 
123.45678E-07 for the same number. Note that for E -Format 
output, P-scaling does not change the magnitude of the number . 
It shifts the decimal point, and makes a compensating change 
in the exponent. For F -Format, P-scaling alters the magnitude 
of the number on input/output . 

VARIABLE FORMAT 

KINGSTON FORTRAN II allows variable Format. That is, 
Format specifications may be read in at object time. In this 
way, data may be read in under control of a Format Statement 
which itself has been read in. Variable Format statements 
must be read under A-Format into an array by means of a 
normal Read statement. 
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For example : 

DIMENSION PMT (15) 

READ 10, (FMT(I), 1=1, l4) 

10 FORMAT (15A5) 

will cause 70 characters of input record (i.e. the Format 
Statement being read in) to be stored in array PMT. It is 
then possible to write: 

READ FMT, A, B, X, Z, (A ( J ) , J=l, 10 ) 

where the input variables will be read in according to the 
Format Statement stored in array FMT. 

It is also possible to alter array FMT by programming. 
This should be done with some care, otherwise the Format 
Statement stored in array FMT may become completely 
unintelligible. 

The name of the variable Format specification must 
appear in a DIMENSION Statement, even if the Array size is 
only 1. 

The Format read in at object time must take the same 
form as a source program Format Statement except that the 
word Format is omitted, i.e. the variable Format begins 
with a left parenthesis. 



SPECIFICATION STATEMENTS 
COMMON 

Variables, including array names, appearing in 
COMMON statements will be assigned core storage locations 
beginning at the high end of memory, and will be stored at 
object time in descending sequence, 10 digits per variable, 
or per item of a dimensioned variable, as they are 
encountered in the COMMON statement. If a variable is a 
dimensioned variable, the size of the dimensioned array must 
appear in the COMMON statement, and the variable must not 
again be dimensioned in a DIMENSION statement. The COMMON 
statement must precede EQUIVALENCE or DIMENSION statements 
(if any) and must precede the first statement of the source 
program. For example: 

COMMON A,B,I,J,X(10,3),Y(5) 

(Inclusion of dimensioning information in COMMON statements 
is allowed in FORTRAN IV). 
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DIMENSION 

The DIMENSION statement is the same as IBM FORTRAN II 
except that variables already mentioned in COMMON may not 
again be dimensioned and that only 2 subscripts are allowed. 

DIMENSION Z(10,5),V(400) is permitted 

DIMENSION X(10,5,10) is not permitted 



EQUIVALENCE 

EQUIVALENCE (a,b,c, --- ) , (d ,e,f , -- ) , 

where a,b,e,d,e,f, are variable names. KINGSTON FORTRAN 
imposes some restrictions on EQUIVALENCE statements which are 
not ptesent in IBM FORTRAN II. These are noted below: 

1. Single variables may be equivaleneed only to single 
variables . 

2. Arrays may be equivaleneed to other arrays, of the same 
size only. 

3. Single variables may not be equivaleneed to individual 
items of arrays, nor may single items of two arrays be 
equivaleneed. In general, no subscripts may appear in 
an Equivalence statement. 

4. Because the compiler is single pass, it is crucial that 
the order in the source deck be: 

COMMON (if any), DIMENSION (if any), EQUIVALENCE (if any). 

They must precede the first executable statement of the 
program . 

5. If arrays are to be equivaleneed, the first item only 
in the list must have been defined previously in""a 
COMMON, or DIMENSION declaration, and the remaining items 
in the list must not have been so defined. The 
Equivalence statement itself defines these remaining 
items. If single variables are to be equivaleneed, and 
any item in the Equivalence list has been defined in a 
previous COMMON or TYPE statement, it must be first in 
the Equivalence list, and the other items must not have 
been defined in a COMMON or TYPE statement. For example, 

COMMON A,B(10,3),C 
DIMENSION D(50) 
EQUIVALENCE (A,F,G) , (D,X) 

This puts A, array B, and C in common storage; defines 
array D; defines F and G as single variables in the same 
memory location as A; and defines X as a 50-item vector in the 
same location as D. The following are errors: (in the 
example above ) . 
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EQUIVALENCE (D,A) (para. 1,2) 

EQUIVALENCE (B(1,1),G) (para. 3) 
EQUIVALENCE (X,D) (para. 5, X not defined) 

EQUIVALENCE (G,A,F) (para. 5, G not defined, 

A defined ) 
EQUIVALENCE (D(50),X(50) ) (para. 3) 

6. To preserve compatibility with other FORTRAN systems, 

which require DIMENSION statements for all array variables 
in an Equivalence list, KINGSTON FORTRAN allows extra 
DIMENSION statements after the Equivalence statements. 
Such DIMENSION statements may be used to mention the 
equivalenced variables, but since they have already been 
defined in the Equivalence Statement, the compiler will 
ignore them. It will not, however, call them errors. For 
example : 

DIMENSION X(10), Y(20) 
EQUIVALENCE (X,A,B), (Y,C,G) 
DIMENSION A(10), B(10), C(20), 0(20) 

is permitted. The variables A,B,C,G in the second 
DIMENSION statement are ignored by the compiler, because 
they have already been defined in the preceding EQUIVALENCE 
Statement. 



7. It is possible to equivalence items not of the same type 
or mode: e.g. EQUIVALENCE (A, I) - where A is real and 
I is integer . 



TYPE 



Two TYPE declarations are permitted. These statements 
determine the type of variable associated with each variable 
name appearing in the statement. This TYPE declaration is in 
effect throughout the program. The two declarations are 

INTEGER a,b,c, .... 
REAL a,b,c, . . . . 

where a,b,c, are variable names appearing within the program. 
Function names may not appear in TYPE declarations. 

Rules : - 



(1) A variable defined to be of a given type remains of 
that type throughout the program. 

(2) INTEGER indicates that the variables listed are integer, 
and over-rides the alphabetic naming convention. 

(3) REAL indicates that the variables listed are floating 
point, and over -rides the alphabetic naming convention. 
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The TYPE declaration must occur before the first 
executable statement of the program. If any of the variables 
mentioned in a TYPE declaration are mentioned in a COMMON or 
DIMENSION statement, the TYPE declaration must follow such 
mention. 

If a TYPE declaration precedes an EQUIVALENCE 
statement, then it defines a variable in the sense required 
by the EQUIVALENCE statement, and all variables equivalenced 
to the one declared in the TYPE statement will be of the same 
type . 

If a TYPE declaration follows an EQUIVALENCE statement , 
then only the specific variable names mentioned in the 
declaration will be affected. 

Examples, 

1. INTEGER A 
EQUIVALENCE (A,B,C) 

2. EQUIVALENCE (A,B,C) 
INTEGER A 

3. EQUIVALENCE (A,B,C) 
INTEGER A,B,C 

4. INTEGER A,B,C 
EQUIVALENCE (A,B,C) 

Examples 1 and 3 cause A,B,C, to be integer variables and 
occupy the same memory location. 

Example 2 causes A to be integer, B,C to be real, and 
A,B,C to occupy the same memory location. 

Example 4 is an error in KINGSTON FORTRAN (see para. 5 under 
EQUIVALENCE). 



